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Sang- und klanglos? 


Ihr ATARI-Computer muß kein "stummer" Diener sein. Zwar 
"schweigt" sich die Bedienungsanleitung weitgehend darüber 
aus, wie man dem Rechner Töne, Soundeffekte und Melodien 
entlockt. Das sollte Sie aber nicht darüber hinwegtäuschen, 
daß Ihr Heimcomputer ein perfekter Hausmusikant ist. 


Vom Surren, Schwirren, Klirren bis Rattern, Knattern, Schnat- 
tern - vom Pfeifen, Fauchen, Zischen bis Brummen, Summen, 
Rumpeln - vom melodischen Orgelton bis zum begleitenden 
Rhythmusspiel macht Ihr ATARI so ziemlich jeden Ton locker. 
Dazu in einer Virtuosität, die Paganini nie erreicht hätte. 


Aber nach einigem ratlosen Blättern in der Bedienungsanlei- 
tung mit dem vielversprechenden Titel "ATARI Basic!" werden 
Sie kopfschüttelnd fragen: Wie? 


(Hat der Computer etwa Stimmbänder, an denen man ziehen 
kann?) Nein, hat er nicht. Im Gegensatz zu einem töneprodu- 
zierenden Volltrunkenen bleibt der Computer auch bei den 
sonderbarsten Äußerungen "berechnend". Denn ATARI selbst 
produziert keine Töne. Er gibt lediglich Steuerimpulse an 
den Magnetkern eines Lautsprechers ab. Dadurch wird dessen 
Membran in Schwingung versetzt, und die vielen verschiedenen 
Töne werden hörbar. 


Sie werden in einem späteren Kapitel lernen, den Magnetkern 
des Lautsprechers direkt zu manipulieren. (Und was kann 
man noch von diesem Buch erwarten?) Zunächst natürlich die 
ersten geräuschvollen Schritte der Musik-Programmierung. 
(Aha, also immer schön der Reihe nach.) Genau. Dann geben 
Soundeffekte den Ton an. Denn das beste Spiel ist ohne Ge- 
räusche wenig berauschend. Niemand muß lautlos im Weltraum 
herumirren oder mit leisen Schrittchen vor Monstern flüchten. 
Und was sind Drachen, aus deren Rachen ohne Krachen Feuer 
sprüht? 


Durch entsprechende Geräusche wird ein viereckiger Punkt 
auf dem Bildschirm zum rassigen Rennwagen, eine Linie zur 
Rakete und ein Kreis zur tickenden Bombe. Nur Geräusche 
können Illusionen perfekt machen. Dieses Buch zeigt Ihnen, 
wie Sie die vielen Effekte programmieren können. (So? Wo 
denn?) Abwarten. Es geht ja gleich los. Sie lernen auch, 
Töne durch Joystick-Bewegungen zu bestimmen und auf Tasten- 


druck Sounds entstehen zu lassen. (Ach, geht das auch?) 
Aber ja. - Natürlich fehlt es auch nicht an unterhaltsamen 
Spielen. (Na, Gott sei Dank.) Schritt für Schritt werden 
Listings kommentiert. Dadurch haben Sie die Möglichkeit, mit 
den vorgegebenen Programmstrukturen eigene Ideen zu ver- 
wirklichen. (Das ist ja toll.) 


Natürlich kann Ihr ATARI noch mehr, als mit Drachenfauchen, 
Monstergroll und Schreckensgetöse die heile Computerwelt 
verunsichern. Er ist auch für "ernsthafte" Musik zu haben. 
Sie können sich die vier Tongeneratoren mit einer Fuge von 
Bach gefügig machen oder die Chips mit heißen Hits ganz 
cool abfahren lassen. Im zweiten Teil des Buches finden Sie 
Programmierhilfen für viele musikalische Aufgaben: Noten 
übertragen, Rhythmusgeräusche erzeugen und zufällige Kom- 
positionen per Computer sind einige der Themen. 


Im dritten Abschnitt lernen Sie dann das fortgeschrittene 
Programmieren mit Hilfe von POKE und PEEK. Damit können 
Sie den Tonumfang des ATARI fast verdoppeln, weitere inter- 
essante Geräusche erzeugen und den Eingabetakt für die 
Audiofrequenz-Register verändern. Das bringt jede Menge 
Töne. (Hört sich wahnsinnig interessant an.) Ist es auch. 
Insgesamt können Sie mit dem ATARI-Heimcomputer über 1,2 
Millionen verschiedene Töne erzeugen. Da wird doch sicher 
auch etwas für Sie dabei sein. 


Ton ab. - Läuft! 


Falls Sie schon einmal davon gehört haben, daß zwischen 
einer Tonleiter und einer anderen Leiter ein Unterschied be- 
steht, können Sie sich beruhigt an dieses Kapitel heranwa- 
gen. Es geht hier nämlich um die einfachsten Formen, Töne 
auf dem ATARI zu erzeugen. 


Der BASIC-Befehl dazu lautet: SOUND K,F,Z,L 
Sie können den Befehl auch abkürzen: SO. K,F,Z,L 


Die Buchstaben K,F,Z,L sind natürlich nur Merkhilfen. Im 
"richtigen" SOUND-Befehl müssen an diesen Stellen Zahlenwerte 
bzw. Variablen stehen. 


K = Tonkanal (Werte O bis 3) 

F = Frequenz (Werte O bis 255) 

Z = Verzerrung (Werte O0 bis 14, nur gerade Zahlen) 
L = Lautstärke (Werte O bis 15) 


Schon mal was von Frequenz gehört? (Woher denn?) Sicher 
wird jeder schon einmal einen Gummiring zwischen die Finger 
gespannt und daran gezupft haben. Dadurch wurde der Gummi 
in Schwingungen versetzt; und je nach Spannung waren tiefe 
oder etwas höhere Töne zu hören. Als Maß für die Tonhöhe 
gibt man die Frequenz an. Damit alles seine Ordnung hat, 
werden Frequenzen in Hertz (Hz). gemessen; das bedeutet 
Anzahl der Schwingungen pro Sekunde. Die Abbildung unten 
zeigt eine Frequenz von 2 Hz. 


1 Sekunde 


Der Kammerton A, den jede Stimmgabel von sich gibt, schwingt 
z.B. 440 mal pro Sekunde. Natürlich können Unmusikalische 
mit der Stimmgabel auch Spaghetti essen. Aber als heranrei- 
fender Computermusiker haben Sie sicher gleich gemerkt, daß 
die höchste zulässige Frequenzangabe im SOUND-Befehl 255 


ist. Kann der Kammerton A gar nicht gespielt werden? Nun, 
die Leute von ATAR|I haben das auch gleich gemerkt und sich 
was einfallen lassen: Die Original-Frequenzen werden in 
BASIC-Werte umgerechnet. Die Formel dazu lautet: 


BASIC-Wert = 31960: (Original-Frequenz +1) 


(Muß man das jetzt auswendig lernen?) Nein, nicht nötig. Es 
soll nur veranschaulichen, wie die Angaben für den SOUND- 
Befehl zustande kommen. Der BASIC-Wert für den Kammerton 
A errechnet sich also: 


31960: (440+1) = 72,47 (abgerundet = 72) 
Wollen Sie's mal hören? Dann schreiben Sie: 
SOUND 0,72,10,15 


Nach RUN hören Sie den Ton. Zum Abschalten müssen Sie die 
RESET-Taste drücken oder END tippen. Bei der Angabe der 
Verzerrung (dritter Wert im SOUND-Befehl) ist zu beachten, 
daß nur die Werte 10 und 14 reine Klänge erzeugen. Alle 
anderen Angaben verzerren die Töne in unterschiedlicher 
Weise. Welche Effekte damit erzielt werden können, wird im 
nächsten Kapitel behandelt. 


In einem normalen Programm können Sie natürlich nicht den 
Ton durch Drücken der RESET-Taste abschalten, weil dadurch 
der gesamte Programmablauf unterbrochen würde. Es gibt 
mehrere Möglichkeiten, die Dauer eines Tons zu bestimmen; 
z.B. mit einer sogenannten "leeren! FOR...NEXT-Schleife. 
Schreiben Sie folgendes kurze Programm: 


18 SOUND 8,72,18,15 
28 FOR ZEIT=8 TO 1888 
38 NEXT ZEIT 


Die Variable ZEIT wurde nur zum besseren Verständnis ge- 
wählt. Es genügt, wenn Sie Z (oder irgendeinen anderen 
Buchstaben) schreiben. Nach RUN hören Sie etwa zwei Sekun- 
den lang den Ton A. Im Gegensatz zu anderen Computern muß 
bei ATARI der Tonkanal nach Beendigung einer SOUND-Durch- 
führung nicht abgeschaltet werden. Das besorgt der Rechner 
freiwillig. Es kann allerdings vorkommen, daß innerhalb 
eines Programms ein Ton erklingen und danach das Programm 
normal weiterlaufen soll. In diesem Fall muß der Tonkanal 
ausgeschaltet werden: 


4380 SOUND 8,8,9,8 
58 REM FORTFAHREN IM PROGRAMM 
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Den Kammerton A kennen Sie nun. Falls Sie schon einmal mit 
den BASIC-Werten der Tonleiter aus der Bedienungsanleitung 
des ATARI|I experimentiert haben, konnten Sie sicher feststel- 
len, daß das Zusammenspiel der Töne unsauber klingt. Die 
einfachen Gründe dafür sind falsch ausgerechnete Werte: Das 
mittlere C z.B. schwingt mit 261,62 Hz. Wenn man die bereits 
erwähnte Formel zur Errechnung des BASIC-Wertes nimmt, lautet 
das Ergebnis für den Ton C: 


31960: (261,62+1) = 121,69 (aufgerundet = 122) 


In der Bedienungsanleitung lautet der Wert jedoch 126. Auch 
andere Töne haben falsche BASIC-Werte. Hier nun eine voll- 
ständige Tabelle der richtigen BASIC-Frequenzwerte: 


229 204 172 153 137 115 102 86 77 68 26 


[NEN] 





242 216 193 182 162 145 129(122 )J108 97 91 81 72 65 6 5 48 46 4 6 32 31 27 24 


Was Sie wissen müssen: Im englischen Sprachraum wird 


die Note H als B bezeichnet. Bei uns ist die B die 
Erniedrigung der Note H um einen halben Ton. 





Nachdem Sie nun wissen, wie man einzelne Töne programmiert, 
folgt als nächstes die "Akkord-Arbeit'"'. Bestimmte Töneklingen 
harmonisch miteinander; z.B. bei der Tonart C-Dur der Grund- 
akkord C,E,G. Folgendes Programm kann also geschrieben 
werden: 


18 SOUND 8,122,18,15 
28 SOUND 1,97,18,15 
38 SOUND 2,81,18,15 
48 FOR ZEIT=®8 TO 1888 
8 NEXT ZEIT 


Denken Sie daran, daß Sie den SOUND-Befehl mit SO. abkürzen 
können. Falls Sie Lust haben, auch Grundakkorde von anderen 
Tonarten auszuprobieren, können Sie die einzelnen Töne und 
entsprechenden BASIC-Werte aus der Tabelle im Anhang A 
entnehmen. 
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Bei dem Programm von Seite 11 erklingen die Töne des C-Dur- 
Akkords gleichzeitig. Sie können aber auch die Noten einzeln 
nacheinander aufrufen und erst zum Schluß gemeinsam erklingen 
lassen. Das sieht dann so aus: 


18 SOUND 8,122,18,15:GO5SUB 48 
28 SOUND 1,97,18,15:GOSUB 48 

38 SOUND 2,81,18,15:GOS5SUB 48 

35 END 

48 FOR ZEIT=8 TO 1888:NEXT ZEIT 
58 RETURN 


Mit GOSUB wird erreicht, daß nacheinander die einzelnen 
Tonkanäle für die Dauer der FOR...NEXT-Schleife erklingen. 
In Zeile 50 wird der Rechner mit RETURN ins Programm zu- 
rückgeführt. Die Zeile 35 ist notwendig, um eine Fehlermeldung 
zu verhindern. Denn würde der Rechner nach Ausführung der 
der Zeile 30 zu den Zeilen 40 und 50 gelangen, bekäme er 
eine RETURN-Anweisung ohne passendes GOSUB. Die Fehler- 
meldung würde lauten: ERROR 16 AT LINE 50. Sie können das 
einmal ausprobieren. 


Im Grunde haben Sie nun alles gelernt, um einfache Töne 
oder Akkorde erklingen zu lassen. (Das ging aber schnell.) 
Trotzdem gibt es noch etwas, wodurch die Programmierarbeit 
vereinfacht werden kann. (Aha, jetzt kommt's.) Stellen Sie 
sich vor, Sie möchten sehr viele Noten abspielen. Dann wäre 
es aufwendig, jeden Ton einzeln mit einer SOUND-Anweisung 
einzugeben. (Stimmt.) Sag! ich ja. In diesem Fall ist es 
angebracht, mit einem READ...DATA-Statement zu arbeiten. 
(Hört sich kompliziert an.) Ist es aber nicht. Sie brauchen 
dabei nur einmal eine SOUND-Anweisung zu schreiben und 
können mit READ immer wieder neue Noten einlesen. Das fol- 
gende Programm ruft die normale C-Dur-Tonleiter auf: 


18 READ FREQ 

28 IF FRE@=8 THEN END 

38 SOUND 8,FREQ,18,15 

48 FOR ZEIT=8 TO 588:NEXT ZEIT 
58 GOTO 10 

68 DATA 122,108,97,91,81,72,65,0 


Exakt das Gleiche können Sie auch auf andere Weise erreichen: 
ı18 FOR OFT=8 TO 6 


28 READ FREQ@ 
38 SOUND 8,FREQ,18,15 


48 FOR ZEIT=8 TO S588:NEXT ZEIT 
58 NEXT OFT 
68 DATA 122,108,97,91,81,72,65 


Durch die FOR...NEXT-Schleife liest der Rechner die sieben 
Daten aus Zeile 60 (die Null zählt mit). Die IF...THEN-Ab- 
frage aus Zeile 20 im vorhergehenden Programm kann damit 
gespart werden. Außerdem fällt die Null in Zeile 60 fort. 
Dafür müssen Sie aber genau auszählen, wieviele Daten ein- 
zulesen sind, da der Rechner sonst mit einer Fehlermeldung 
reagiert. 


Die einfachste Methode, beliebig viele Daten in ein Programm 
einzulesen, ohne auszählen zu müssen oder IF...THEN-Be- 
dingungen zu stellen, ist das Arbeiten mit dem TRAP-Befeh|l. 
Mit diesem Befehl können Sie dem Rechner angeben, in welche 
Zeile er springen soll, wenn ein Fehler auftritt. Der TRAP- 
Befehl ist jedoch nur einmal in einem Programm wirksam und 
muß deshalb immer wieder erneuert werden, bevor ein neuer 
Fehler auftreten kann. 


Im folgenden Programm soll der Rechner beim Auftritt eines 
Fehlers zur Zeile 90 springen und das Programm beenden. 
Der Fehler tritt in jedem Fall auf, sobald alle Daten aus 
den Zeilen 60 bis 80 gelesen sind. Die DATA-Zeilen enthalten 
in diesem Beispiel nicht nur die Frequenz-Werte, sondern 
auch die Angaben für die Lautstärke und die Tondauer: 


18 TRAP 98 

28 READ A,B,C,D 

38 SOUND A,B,18,C 

48 FOR ZEIT=8 TO D:NEXT ZEIT 
s8 GOTO 28 

68 DATA 8,122,15,588 

‘8 DATA 1,97,10,250 

88 DATA 8,81,12,588 

98 END 


Die Zeilen 60 bis 80 wurden nur zur besseren Übersicht ge- 
trennt. Sie können die DATA-Werte auch in einer Zeile zusam- 
menfassen. Es ist jedoch sinnvoll, die Angaben logisch zu 
ordnen, damit leichter Veränderungen vorgenommen werden 
können. Die Datenblöcke im oben stehenden Programm enthalten 
jeweils die Angaben für Tonkanal, Frequenz, Lautstärke und 
Tondauer (ZEIT-Variable). 


Mit diesem Grundwissen können Sie jede Menge "Stimmung! auf 
Ihrem ATARI machen. 


Was Sie wissen müssen: Wenn alle vier Tonkanäle 
aktiviert werden, sollte die Gesamtlautstärke den Wert 


32 nicht übersteigen. Es können sonst Tonverzerrungen 
auftreten. 
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Rumpel, Krcks und Donnergroll 


Jetzt kommt der Sound, aus dem die Spiele sind. Wie soll man 
eine schöne Jungfrau retten, wenn ihr Hilfeschrei nicht zu 
hören ist? Wie soll man einer Gefahr begegnen, wenn nir- 
gendwo eine Alarmsirene ertönt? Was ist ein Poker-Spiel per 
Computer ohne das stimmungsvolle Kartenmisch-Geräusch? Wie 
soll man die blaue Grafik auf dem Bildschirm als Meer iden- 
tifizieren, wenn dazu kein Meeresrauschen erklingt? -Klappern 
gehört zum Handwerk. Das gilt auch für das Handwerk des 
Programmierens. 


Jeder möchte seine Programme verbessern. Aber das fürchter- 
lichste Umgeheuer wird zur traurigen Gestalt, wenn es sein 
Maul aufreißt und lautlos ein paar rote Kleckse auf den 
Bildschirm spuckt, die "Feuerfauchen'" sein sollen. Jeder Held 
würde schallend lachen, müßte er gegen solch eine "Bestie" 
ankämpfen. (Stimmt. Aber wie programmiert man "Lachen"?) 
Ganz einfach; indem man dem Computer einen Witz erzählt. 


Zurück zum Feuerdrachen. Wenn ein Dreieck (soll der Kopf 
sein), ein Recheckt (Körper) und ein Strich (soll der Dra- 
chenschwanz sein) über den Bildschirm läuft und gleichzeitig 
ein donnerndes Getöse aus dem Lautsprecher grollt, daß die 
Wände wackeln, dann bekommt sogar der Spieler an seinem 
Joystick Herzklopfen. 


Schon die alten Inder kannten das Phänomen der Illusion, 
dem die Menschen so gerne erliegen. Sie nannen das "Maya". 
Sogar dieses Buch ist Maya. Oder glauben Sie ernsthaft, daß 
Sie im Augenblick diesen Satz lesen? - Wenn es auch dem 
Lautsprecher donnert, zieht in Wirklichkeit natürlich kein 
Gewitter auf (es sei denn, der Nachbar ärgert sich über den 
Lärm). Trotzdem reagieren wir entsprechend den Geräuschen, 
die wir hören. Das macht Computerspiele so faszinierend. 


Das Programmieren von bestimmten Geräuscheffekten ist für 
viele oft ein Problem. Denn alle Geräusche müssen synthetisch 
generiert werden. Das gelingt nur durch Zufall oder wenn 
man weiß, wie die Originalgeräusche aufgebaut sind. Sogar 
die menschliche Stimme läßt sich künstlich nachahmen. Der 
Buchstabe A z.B. schwingt mit einer Hauptfrequenz von ca. 
500 Hz. (Fehlt noch, daß man dem Computer beibringt, "Ich 
liebe Dich" zu krächzen.) 


Was stellt ATARI zur Verfügung, um Soundeffekte zu erzeu- 
gen? Erst einmal die BASIC-Frequenzwerte O0 bis 255. Dann 
die Verzerrungen 0,2,4,6,8 und 12. Aber auch mit "reinen" 
Tönen lassen sich Effekte erzielen. Ein Beispiel: 


18 FOR FREQ=15 TO 255 
28 SOUND 8,FREQ,18,15 
38 NEXT FREQ 


Mit diesem Programm pfeift der Computer Ihnen etwas. Der 
Effekt ist geeignet für "Fallendes Objekt", "Punktverlust" 
oder '"Fehlschlag". Das Programm kann auch umgedreht wer- 
den: 


18 FOR FREQ=255 TO 15 STEP -1 
28 SOUND 8,FREQ,1®8,15 
38 NEXT FREQ 


Dieser Effekt eigent sich ebenfalls für "Punktverlust". Er 
kann aber auch beim Zusammenstoß von zwei Objekten genom- 
men werden. Bei beiden Programmen wurde das Frequenz- 
Spektrum nur bis zum Wert 15 gewählt. (Alle höheren Töne 
hören sich wohl an wie der Gesang einer Elfe im Stimmbruch?) 
Genau. Mit diesen beiden Programmen können Sie bereits in 
vielfältiger Weise experimentieren und interessante Effekte 
erzielen. Ändern Sie z.B. Zeile 10 im vorherigen Programm: 


18 FOR FREQ=255 TO 15 STEP -2 
28 SOUND 8,FREQ,18,15 
38 NEXT FREQ 


Oder schreiben Sie: 


18 FOR OFT=8 TO 3 

28 FOR FREQ@=288 TO 15 STEP -2 
38 SOUND 8,FREQ,18,1S 

48 NEXT FREQ@ 

58 NEXT OFT 


Dieser Effekt ist als allgemeines Gefahren- und Alarm-Signal 
zu verwenden. Sie können die Schnelligkeit der Tonfolge noch 
steigern, wenn Sie in Zeile 10 das STEP -2 weiter verändern 
(z.B. STEP -4). Experimentieren Sie nach eigener Lust und 
Laune. Sie werden schnell merken, wie viele verschiedene 
Effekte durch geringfügige Veränderungen entstehen. Im fol- 
genden Programm wird der STEP auf -20 erhöht und die 
Klangfolge elfmal abgespielt. 
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18 FOR OFT=8 TO 10 

28 FOR FREQ@=288B TO 15 STEP -28 
38 SOUND 8,FREQ,18,15 

48 NEXT FREQ 

58 NEXT OFT 


Das hört sich dann an wie ein Roboter, der einen Elektroschock 
erlitten hat. Der Effekt kann auch für Schußgeräusche kurioser 
Waffen genommen werden oder wenn eine Spielfigur durch eine 
Wand rennt. Wenn Sie statt STEP -20 nun STEP -50 nehmen, 
erhalten Sie ein Geräusch, das an das Klingeln eines modernen 
Telefons erinnert. - Wenden Sie sich noch einmal dem ersten 
Beispielprogramm auf Seite 16 zu und ändern Sie: 


18 FOR OFT=®8 TO 3 

28 FOR FREQ=15 TO 288 
38 SOUND 8,FREQ,18,15 
48 NEXT FREQ 

58 NEXT OFT 


Auchmit diesem Programm können Sie nach Herzenslust herum- 
experimentieren. Ein Beispiel: 


18 FOR OFT=®8 TO 10 

28 FOR FREQ=15 TO 288 STEP 18 
38 SOUND 8,FREQ,108,15 

48 NEXT FREQ 

8 NEXT OFT 


Das hört sich an wie die Schüsse eines Elektronik-Panzers. Sie 
können auch das Frequenz-Spektrum weiter einschränken und 
schreiben: 


18 FOR OFT=8 TO 18 

28 FOR FREQ=2B8 TO 255 
38 SOUND 8,FREQ,18,15 
38 NEXT FREQ 

S8 NEXT OFT 


Dieser Effekt dient als Gefahrensignal oder als Begleitsound 
für die Bewegung gefährlicher Objekte. Sie können nun einige 
Stunden damit verbringen, aus den beiden Grundprogrammen 
sämtliche Sound-Variationen herauszuholen. Dabei handelt es 
sich noch immer um unverzerrte Töne und zwei Prinzipien: Das 
Spielen von hoher Frequenz zu niedriger Frequenz und um- 
gekehrt. Wenn Sie zusätzlich noch die Lautstärke verändern, 
bekommen Sie wiederum ganz neue Effekte: 


18 FOR LAUT=8 TO 15 

28 FOR FREQ=-2B8B TO 238 STEP 2 
38 SOUND 8,FREQ,18,LAUT 

48 NEXT FREQ 

58 NEXT LAUT 


Dieser Effekt klingt sehr "elektronisch". Wegen seines schwe- 
benden Charakters läßt er sich gut bei einem herannahenden 
Objekt einsetzen. Wenn Sie möchten, daß sich das Obejekt 
klangmäßig nähert und wieder entfernt, verändern Sie das 
obenstehende Programm folgendermaßen: 


18 FOR LAUT=-15 TO 15 

28 FOR FREQ@=288B TO 238 STEP 2 
38 SOUND 8,FREQ,18,15-ABSCLAUT) 
48 NEXT FREQ 

58 NEXT LAUT 


Das Geheimnis der Zeilen 10 bis 30: Wenn von der Lautstärke 
15 der Absolutwert von -15 (= +15) abgezogen wird, erhält 
man Null, also den geringsten Lautstärkenwert. Erreicht die 
Variable LAUT durch die FOR...NEXT-Schleife den Wert Null, so 
ergibt sich in Zeile 30 die größte Lautstärke. Von da an 
nehmen die Werte wieder ab. 


Neben den Prinzipien, die Frequenzen aufsteigen oder abfallen 
zu lassen und die Lautstärke zu manipulieren, gibt es noch 
die Möglichkeit, die Tondauer (Variable ZEIT) zu verändern. 
(Und wann ist endlich Ruhe?) Jetzt geht's doch erst richtig 
los. 


Als erstes Beispiel muß wieder der Kammerton A herhalten, den 
Sie bereits aus dem ersten Listing von Seite 10 kennen: 


18 FOR OFT=8 TO 18 

28 SOUND 8,72,18,15 

38 FOR ZEIT=8 TO 58:NEXT ZEIT 
48 SOUND 8,8,8,8 

58 NEXT OFT 


Mit diesem Soundeffekt kann auf eine allgemeine Gefahr auf- 
merksam gemacht werden. Er läßt sich aber auch sehr gut 
in einem Flipper-Spiel anwenden. Falls Ihnen die Frequenz 
nicht gefällt, können Sie alle anderen Töne durchprobieren 
und Ihr Lieblingsgedudel herausfinden. Versuchen Sie's auch 
mal mit dem Frequenzwert 246. (Klingt nicht übel.) Sag' ich 
ja. Im folgenden Beispiel wird in Zeile 20 der Ton A eine 
Oktave höher gespielt und die Tondauer gekürzt: 
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18 FOR OFT=8 TO 10 

28 SOUND 8,36,18,15 

38 FOR ZEIT=8 TO S:NEXT ZEIT 
48 SOUND 8,0,0,08 

s8 NEXT OFT 


Sie erhalten dann ein rhythmisches Klirren, das sich für 
viele Spielsituationen einsetzen läßt; z.B. bei Regelwidrig- 
keiten, wenn eine Spielfigur gegen eine Wand rennt oder um 
ganz allgemein Aufmerksamkeit zu erzeugen. Falls Sie mal 
ein modernes Telefon klingeln lassen wollen, schreiben Sie 
folgendes Programm: 


18 DAUER=1® 

28 FOR X=8 TO DAUER 

38 SOUND 8,36,18,15 

48 SOUND 1,72,108,8 

s8 FOR ZEIT=8 TO S:NEXT ZEIT 

68 SOUND 8,0,8,8 

r8 SOUND 1,8,08,® 

88 NEXT X 

98 IF DAUER=18 THEN DAUER=15:GOTO 2B 


In den Zeilen 30 und 40 werden die bereits bekannten A-Töne 
mit der FOR...NEXT-Schleife X TO DAUER gespielt. Durch das 
kurzzeitige Ausschalten der Tonkanäle in den Zeilen 60 und 
70 nimmt der Sound einen trillernden Charakter an. Nachdem 
zunächst die FOR...NEXT-Schleife elfmal durchlaufen wird, 
nimmt die Variable DAUER in Zeile 90 den Wert 15 an. Dann 
kehrt der Rechner zur Zeile 20 zurück und spielt die beiden 
Frequenzen sechzehnmal (da die Null mitzählt). Danach trifft 
die Bedingung der Zeile 90 nicht mehr zu und das Programm 
wird beendet. Soll das Telefon ständig klingeln, ergänzen 
Sie das obenstehende Listing: 


188 FOR PAUSE=8 TO 588:NEXT PAUSE 
118 GOTO 18 


Um das aufdringliche Klingeln abzustellen, müssen Sie die 
RESET-Taste drücken. Mit diesen Anregungen läßt sich wie- 
derum stundenlang herumexperimentieren. Sie können alle 
bisher gezeigten Prinzipien miteinander verbinden; also bei 
aufsteigenden oder abfallenden Frequenzen die Laustärke 
anschwellen und ausklingen lassen und die Tondauer verän- 
dern. Sie werden immer wieder feststellen, wieviele unter- 
schiedliche Sound-Charaktere sich durch geringfügige Ände- 
rungen erzielen lassen. 


Doch jetzt, lieber Leser, müssen Sie sehr tapfer sein! Denn 
auf den folgenden Seiten finden Sie nur Tabellen, Tabellen, 
Tabellen. (Muß das sein?) Ja, muß sein. Diese Tabellen sind 
nämlich sehr nützlich. (Kann jeder behaupten.) Na ja, aber 
es stimmt. Wenn Sie ein Programm entwickeln und einen be- 
stimmten Soundeffekt suchen, können Sie aus den Tabellen 
das passende für sich heraussuchen oder zumindest Anregungen 
finden, welcher Sound am besten in Ihr Programm paßt. 


Jede Tabelle enthält die Effekte aller Frequenzen für einen 
bestimmten Verzerrungsgrad. Dabei sind meistens mehrere 
Frequenzen zusammengefaßt, die zwar nicht identisch, aber 
doch ähnlich klingen. Die aufgezeigten AÄnwendungsmöglich- 
keiten sind natürlich nur knappe Beispiele und Anregungen. 
Sicher finden Sie für die einzelnen Sounds noch ganz andere 
Anwendungen. Das hängt schließlich ganz vom Thema des 
Programms ab. 


Was Sie wissen müssen: Einige Kombinationen von Fre- 
quenzen und Verzerrung erzeugen keinen Ton. In den 


Tabellen ist enthalten, um welche Frequenzen es sich 
handelt. 
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Tabelle | 
Frequenz 


255-248 


unrhythmisches, knurrendes, |"Elektrisieren"; gegen Wände 


dumpfes Rauschen rennen; erstes Startgeräusch 
für Rakete oder Rennwagen 


246-217 unrhythmisches, knurrendes wie 255-248 
Rauschen Auseinanderbersten von Dingen; 
Beginn von Erdbeben; Abklingen 
einer Explosion 


ae ee 


wie 255-248 
"zähflüssiges" Fahrgeräusch; 
utopisches Bewegungs-Ob jekt 


meistens kein Ton besser nicht anwenden 


184-155 wie 215-186 Auseinanderbersten von Dingen; 
Startgeräusch für Rakete oder 
Fahrzeug; Zusammenstoß von 
Objekten 


153-124 unrhythmisches, hell- Fahr- und Fluggeräusch von 
exotischen Objekten; Leerlauf 
eines Motors 


wie 153-124 wie 153-124; "Elektrisieren" 
ECT FE 


unrhythmisch surrendes, in Verbindung mit anderen Fre- 
knurrendes Rauschen quenzen Startgeräusch einer 
Rakete 


meistens kein Ton besser nicht anwenden 












unrhythmisches Rauschen, 


aber nicht so dunpf wie 
bei 255-248 














knurrendes Rauschen 








91-62 




















60-40 unrhythmisches, zischendes 2. Phase eines Erdbebens; 
Rauschen 2. Phase einer Explosion; 
kosmisches Fluggeräusch 
39-31 surrendes, zischendes in Verbindung mit anderen Fre- 


Rauschen quenzen für Explosion 
oft kein Ton; sonst klirren-| besser nicht anwenden 
des, zischendes Rauschen 
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helles, klirrendes, Raketenflug, Explosion 
zischendes Rauschen 
19-14 lebhaftes, klirrendes, 
zischendes Rauschen 
helles, zischendes Rauschen | entschwindende Rakete; Explo- 
sion; zischendes Fahrgeräusch 
4-2 lebhaftes, fließendes, wie 13-10; Wasserrauschen 
helles Rauschen (z.B. Staudamm, Wasserfall) 
zischendes Rauschen Dampf- und Zischgeräusche 


wie 1, jedoch weniger 
intensiv 


Verzerrung 0 
Anwendungs-Beispiele 
















18 FOR FREQ=B TO 98 STEP 8.3 
28 SOUND 8,FREQ,8,15 

38 NEXT FREQ 

28 FOR LAUT=15 TO 8 STEP -8.085 
58 SOUND 8,FREQ,8,LAUT 

68 NEXT LAUT 


Mit diesem Programm erhalten Sie ein explosives Krachen. In 
Zeile 10 und 30 werden die Frequenzen O0 bis 90 aufgerufen, 
wobei durch STEP 0.3 eine zusätzliche Verzögerung erreicht 
wird. Zeile 20 spielt die aktuelle Frequenz. Ab Zeile 40. nimmt 
durch die FOR...NEXT-Schleife die Lautstärke allmählich ab. 
STEP -0.05 sorgt für eine Verzögerung, die Sie auch verändern 
können. 


18 DIM Ascı) 

28 LAUT=1S5 

38 PRINT "SCHUSS ”; 

48 INPUT A$ 

58 FOR F=8 TO 29 STEP 8.5 
68 SOUND ®8,F,8,LAUT 
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78 LAUT=LAUT-8.2 
88 NEXT F 

98 SOUND 8,8,8,8 
188 GOTO 28 


Bei diesem Programm können Sie durch Drücken der RETURN- 
Taste ein typisches Schuß-Geräusch erzeugen. 


10: ATARI-Computer neigen zu Fehlermeldungen, wenn String- 
Variablen nicht DIMensioniert werden. 


20: Die Lautstärke wird festgelegt. 


30 und 40: Auf dem Bildschirm wird das Wort "SCHUSS" aus- 
gegeben. Mit dem INPUT wartet der Computer auf die Eingabe 
eines Zeichens. Sie können jede beliebige Taste drücken und 
mit RETURN starten. Es genügt jedoch, nur die RETURN-Taste 
zu drücken, um den Schuß auszulösen. 


50: Die Frequenzen O bis 29 werden aufgerufen. Durch STEP 
-0.5 wird nur bei jedem zweiten FOR...NEXT-Durchlauf die 
Frequenz um Eins erhöht. 


60: Die aktuelle Frequenz wird gespielt. 


70: Während in Zeile 50 die Frequenzen aufgerufen werden, 
nimmt die Lautstärke ab. Durch -O.2 reduziert sich der An- 
fangswert LAUT=15 in jedem fünften FOR...NEXT-Durchlauf um 
Eins. Die Abnahme darf den Wert 0.2 nicht überschreiten, 
da sonst ein Wert unter Null erreicht wird, was zu einer 
Fehlermeldung führt. 


90: Der Tonkanal wird abgeschaltet. 


100: Der Rechner wird zur Zeile 20 geführt, wo er wieder 
den alten Lautstärkenwert registriert und in Zeile 30 auf 
einen neuen Tastendruck wartet. Sie können das Programm 
durch BREAK unterbrechen. 


18 FOR LAUT=-8 TO 108 

28 SOUND 8,215,8,LAUT 

38 FOR ZEIT=8 TO 288:NEXT ZEIT 
48 NEXT LAUT 

>58 SOUND 8,60,8,15 

68 SOUND 1,49,0,15 

r8 SOUND 2,19,8,15 

88 FOR ZEIT=8 TO 1888:NEXT ZEIT 
98 FOR LAUT=15 TO 8 STEP -1 
188 SOUND 8,69,8,LAUT 

118 SOUND 1,438,8,LAUT 

128 SOUND 2,19,8,LAUT 
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138 FOR ZEIT=8 TO 288:NEXT ZEIT 
148 NEXT LAUT 


Für "Nahendes Unheil, Blitz und Donner" sorgt dieses Pro- 
gramm. Hier werden drei Tonkanäle gleichzeitig aktiviert. 


10 bis 40: Die Frequenz wird mit langsam steigender Laut- 
stärke gespielt. Zeile 30 sorgt dabei für die notwendige 
Verzögerung. 


50 bis 70: Sobald die Lautstärke 10 erreicht ist, donnern 
drei Tonkanäle mit unterschiedlichen Frequenzwerten in der 
Lautstärke 15 los. 


80: Eine Verzögerungs-Schleife, mit der die Tongeneratoren 
eine zeitlang aktiv bleiben. 


90 bis 140: Die Lautstärke nimmt allmählich ab; das Unwetter 
verzieht sich. Zeile 130 sorgt wieder für eine Verzögerung. 


18 FOR OFT=8 TO 18 

28 FOR FREa@=1 TO 4 

38 SOUND 8,FREQ,®8,4 

48 FOR ZEIT=8 TO 25:NEXT ZEIT 
58 SOUND 8,8,8,08 

68 FOR ZEIT=8 TO 25:NEXT ZEIT 
78 NEXT FREQ 

88 NEXT OFT 


Dieses Anwendungs-Beispiel bringt ein Original-Dampflock- 
Geräusch. Hier sind zwei FOR...NEXT-Schleifen ineinander 
verschachtelt. Zeile 10 sorgt dafür, daß das Programm elfmal 
durchlaufen wird (die Null zählt mit). Bei jedem Durchlauf 
werden die Frequenzen 1 bis 4 aufgerufen und in Zeile 50 
wieder kurz abgeschaltet. 
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255-248 rhythmisches Elektronik- Zusammenprall; Gefahrenobjekte; 
knurren utopisches Fluggeräusch 


246-235 wie 255-248, jedoch nicht wie 255-248; Leerlauf eines 
so dunmpf schweren Motors 


234-217 schnelles, rhythnisches, Elektronik-Hubschrauber; Leer- 
hackendes Elektroniknurren lauf eines Motors; Gefahren- 
objekt 


meistens kein Ton, besser nicht anwenden 
sonst reines "D" 
wie 234-217 wie 234-217 
| kein on 


184-155 wie 234-217, jedoch l. Gang Rennwagen; utopisches 
schneller Gluggeräusch; Maschine 

154 meistens kein Ton, besser nıcht anwenden 
sonst reines "Gis" 


153-124 





dumpfes Surren 2. Gang Rennwagen; Flugge- 
räusch; Gefahrenobjekt; Schiff 





nit Dieselmotor 


wie 153-125, jedoch wie 153-124 
etwas heller 


rhythmisches Surren 3. Gang Rennwagen; Motor 
mittlerer Drehzahl; Gefahr; 
Verfolgung; utopisches Flugge- 
räusch 


kam 


schnelles, rhythnisches 4. Gang Rennwagen; Motor hoher 
Drehzahl; Begleitsound für be- 
wegliche Gefahrenobjekte 


39-31 wie 60-40 Säge; Motor hoher Drehzahl; 
gefährliche Insekten 


m 
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60-40 


Surren 
















29-20 schneidendes Summen utopisches Fluggeräusch; 
Gefahr; Alarn 


19-14 wie 29-20 
13-10 helles, schneidendes Summen | Modellflugzeug 
elektronische Hupe; Gefahren- 


abgeschwächtes, schneidendes | allgemeiner Begleitsound für 
Summen bewegte Objekte; Hebebühne 
4-2 helles Sunmen 
signal; Begleitsound für 
unangenehme Objekte 








abgeschwächter, fast reiner, | keine spezifische Anwendung 
hoher Ton 


Verzerrung 2 
Anwendungs-Beispiele 


18 FOR FREQ=S TO 14 

28 SOUND 8,FREQ,2,8 

38 FOR ZEIT=8 TO 58:NEXT ZEIT 
48 NEXT FREQ@ 


Ein herrlicher Sound für "Punktverlust", "Fehlschlag'" und 
ähnliches. Durch die erste FOR...NEXT-Schleife werden die 
Frequenzen 5 bis 14 aufgerufen. Die zweite Schleife sorgt für 
eine Verzögerung. Sie können diese Werte nach Belieben ver- 
ändern. 


18 FOR FRE@Q=19 TO 5 STEP -1 
28 SOUND 8,FREQ,2,8 

38 FOR ZEIT=8 TO 58:NEXT ZEIT 
48 NEXT FREQ 


Bei diesem Programm ist das Prinzip des ersten genau umge- 
dreht: Hier werden die Frequenzen aufsteigend gespielt. Der 
Effekt ist ein allgemeiner Video-Spiel-Sound und läßt sich 
in allen möglichen Situationen anwenden. Genau wie im ersten 
Beispiel können auch hier die Frequenzangaben und die Ver- 
zögerung beliebig geändert werden. 
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18 FOR FREQ=8 TO 4 

28 SOUND 8,FREQ,2,8 

38 FOR ZEIT=8 TO 58:NEXT ZEIT 
48 NEXT FREQ 


Ein anderes Beispiel für "Punktverlust", "Fehlschlag" oder 
Regelwidrigkeiten. Versuchen Sie auch hier das Frequenzspiel 
umzudrehen, indem Sie schreiben: 18 FOR FRE@Q=4 TO 8 STEP -1 


18 FOR OFT=8 TO 18 

28 FOR FREQ@=31 TO 39 

38 SOUND 8,FREQ,2,8 

48 FOR ZEIT=8 TO 15:NEXT ZEIT 
>58 SOUND 8,8,8,8 

68 FOR ZEIT=8 TO 15:NEXT ZEIT 
78 NEXT FREQ 

88 NEXT OFT 


Dieses Programm erzeugt ein aufdringliches, bedrohliches 
Schnattern. Es eignet sich gut als Begleitsound für ein ge- 
fährliches Objekt, das über den Bildschirm saust. In Zeile 
10 sorgt die FOR...NEXT-Schleife dafür, daß der Effekt elfmal 
wiederholt wird. Wenn Sie dieses Programm in ein Spiel ein- 
bauen, können Sie den Sound so oft wiederholen lassen, bis 
z.B. das Gefahrenobjekt den Bildschirm verlassen hat, bis 
es abgeschossen wurde oder ähnliches. 


18 DIM A$C1)3:DIM B$C38):FREQ=184 

28 B$="GANGSCHALTUNG BETAETIGEN t t 
38 PRINT B$; 

48 INPUT A$ 

8 X=X+1:1IF X=5 THEN END 

68 SOUND 8,FREQ,2,18 

78 FREQ=FREQ-47 

88 GOTO 38 


Falls Sie einmal mit einem Auto oder Rennwagen auf dem 
Bildschirm herumfahren wollen, brauchen Sie eine entsprechende 
Geräusch-Untermalung. Mit dem oben stehenden Programm 
können Sie eine Fünfgang-Schaltung betätigen (indem Sie die 
RETURN-Taste drücken), wobei der Eindruck entsteht, daß 
der Motor ständig seine Drehzahl erhöht. Das Programm ist 
im Prinzip so aufgebaut wie das "Schuß"-Programm Seite 22. 
Die Zählvariable in Zeile 70 sorgt dafür, daß die Gang- 
schaltung nur fünfmal betätigt werden kann. Danach ist das 
Programm beendet. 
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Anfangs- oder Endphase von 
Explosionen; Knattergeräusche 






255 dumpfes, knurrendes 
253-250 Rauschen 





248-245 
243-240 


254 kein Ton 

249 

247 

239 

244 rhythmisches, knatterndes | Elektronik-Fahrzeug; Roboter- 


schritte; Begleitsound für 
Bewegungen aller Art 


Rauschen 








"Elektrisieren"; Zusammenprall 
von Objekten; Anfangs- oder 
Endphase von Explosionen 


234 kein Ton - 
224 
216 
209 


knatterndes Rauschen 


238-235 
233-230 






228-225 unrhythnisches, knattern- | wie 255 und 238-235 
223-220 des Rauschen 





219 wie 244 wie 244 
204 


215-210 
208-205 
203-195 
193-170 


169 rhythmisches, schlagendes | riemengetriebener Motor; 
Rauschen utopisches Maschinengewehr; 
Action-Geräusch; Verfolgung; 
Wettrennen 


168-165 
163-160 





















159 rhythmisches, schlagendes | allgemeines Actiongeräusch; 
146 Rauschen Maschine, utopisches Fluggerät 
140 

139 










Tabelle 3 


164 kein Ton 
154 
149 


158-155 




















unrhythmisches, knattern- | Mittelphasen von Explosion 










153-150 des Rauschen oder Rakete; Knattereffekte; 
148-147 "Elektrisieren"; Zusammenprall 
145-141 von Objekten 


138-135 knurrendes Rauschen Knattereffekte; Mittelphasen 
133-130 von Explosion oder Rakete 


rhythmisches, dumpfes Maschine (Fließband); allge- 
Hänmern meines Actiongeräusch 


128-125 
123-120 
118-117 













oft kein Ton, sonst 
schnelles, rhythmisches 
Hänmern 







Leerlauf Motor; Gefahr; Zusan- 
menstoßB von Objekten 


Elektronik-Fahrzeug; Maschine; 
kleiner Motor nit niedriger 
Drehzahl 
















melodisch schlagendes 
Surren 





















108-105 helles, unrhythmisches, "Elektrisieren"; Sound bei 








103-102 knurrendes Rauschen Regelwidrigkeiten 
100 
rhythsisches, schlagendes 
Surren 
98 halbrhythnisches Surren allgemeiner Begleitsound für 
95 bewegte Objekte 
93 














unrhythmisches Knurren Drache; Fauchgeräusche; 


Zusammenstoß von Objekten 
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92 meistens kein Ton besser nicht anwenden 

89 

86 halbrhythnisches Knurren keine spezifische Anwendung 
83 

85 wie 97-96 wie 97-96 

82-81 

84 


helles, rhythmisches Actiongeräusch; Dauerfeuer; 
elektronische Waffen; Begleit- 
sound für schnelle Bewegungen 


79 meistens kein Ton besser nicht anwenden 

7, 

78 unrhythmisches Rauschen in Verbindung mit anderen Fre- 
76-75 quenzen für Explosion, Schuß 


73-72 helles, unrhythnisches, wie 97-96 
70 knurrendes Rauschen 
69 


schnelles, rhythmisches Maschine; Action; Bewegung; 
Surren -Wettrennen; Verfolgung; 
utopisches Fluggeräusch 





































in Verbindung mit anderen Fre- 
quenzen für Explosion, Schuß 
und Faucheffekte 


besser nicht anwenden 





meistens kein Ton 


keine spezifische Anwendung 


Maschinen- und Motorgeräusche 









unrhythmisches Rauschen 


helles, schlagendes 
Surren 
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50-49 helles, schnelles, Begleitsound für Gefahren- 
47 rhythmisches Surren objekte; Verfolgung; Action 


48 keine spezifische Anwendung 
46-45 

43-42 

40 


I nr DD 
1 


4 helles, schneidendes Sound, um Aufmerksamkeit zu 
Surren erzeugen 

39 meistens kein Ton besser nicht anwenden 

34 

38 


rhythmisches, schneidendes | Begleitsound für bewegte 
Surren Objekte; Gefahrensignal 




























in Verbindung mit anderen Fre- 
quenzen für Explosion, Schuß- 
und Rauscheffekte 


durchdringendes, 
rhythmisches Rauschen 









Sound für Regelwidrigkeiten; 
Sound, um Aufmerksamkeit zu 
erhöhen; Schuß; Action 


30-29 besser nicht anwenden 
24 


27 durchdringendes, sägendes | wie 37-36 
25 Rauschen 


26 rhythmisches, sägendes "Bremsen"; Fehlschlag; Gefahr; 
23 Rauschen Alarn; 
20 


sägendes Rauschen 






































helles, verzerrtes 
Surren 


in kurzen Sequenzen für Schuß- 
geräusche elektronischer 
Waffen; Zusammenstoß von 
Objekten; Gefahrensignal 


19 meistens kein Ton besser nicht anwenden 
14 
Ku helles, sägendes Rauschen | keine spezifische Anwendung 
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Tabelle 3 


de 2a de 22 
16-15 intensives, durchdringen- | allgemeines Actiongeräusch 
13-12 des, sägendes Rauschen 
rhythmisches Schnarren Sound für Regelwidrigkeiten; 
utopisches Fahrzeug 
helles, rhythmisches, wie 11 
verzerrtes Surren 


Gefahr; Alarn 







intensives, durchdringen- 
des Schnarren 


DE 
BEE 
7-6 helles, intensives, 
klirrendes Rauschen 
helles, kräftiges Surren Sound, um Aufmerksamkeit zu 
erhöhen 








meistens kein Ton besser nicht anwenden 
helles, klirrendes wie 9-8 

Rauschen 

typisches Rasierapparat- Elektromotor; Gefahrensignal 
Geräusch 


wie 2, jedoch weniger 
intensiv 





Verzerrung 4 
Anwendungs-Beispiele 


18 DAUER=S5 

28 FOR LAUT=-13 TO 15 

38 SOUND 8,67,4,15-ABS(CLAUT) 
38 SOUND 1,63,4,15-ABSCLAUT)D 
58 FOR ZEIT=8 TO DAUER 

68 IF LAUT=14 THEN DAUER=15 
8 NEXT ZEIT 

88 NEXT LAUT 
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Es war schon mehrfach von Feuerdrachen die Rede. Hier nun 
ein Programm, mit dem Sie das Fauchen eines Drachen nach- 
ahmen können. 


10: Da sich die Dauer der Verzögerungs-Schleife in Zeile 50 
im Verlauf des Programms ändern soll, wird der Anfangswert 
in der Variable DAUER festgelegt. 


20 bis 40: Die Lautstärke wird von -13 bis +15 gewählt. In 
Wirklichkeit kann der Computer keine Lautstärke mit einem 
Minus-Vorzeichen ausgeben. Der Sinn der Zeile 20 ist, die 
Lautstärke anschwellen und ausklingen zu lassen. Das wird 
in den Zeilen 30 und 40 erreicht. ABS bedeutet Absolutwert; 
d.h. Minuswerte erhalten positive Vorzeichen. Wenn Sie von 
der Lautstärke 15 den Absolutwert von -13 abziehen (also 
+13), dann erhalten Sie 2. Somit hat die Lautstärke im ersten 
Durchlauf der FOR...NEXT-Schleife den Wert 2. Beim zweiten 
Mal wird der Lautstärke 15 der Absolutwert von -12 abgezo- 
gen, wodurch sich der Wert 3 ergibt. Etwa zur Mitte der 
FOR...NEXT-Durchläufe ist der Absolutwert O0 und die Laut- 
stärke demnach 15. Von da an nimmt sie wieder ab, bis sie 
bei 0 ankommt. So läßt sich das Anschwellen und Ausklingen 
von Lautstärke, aber auch von Frequenzwerten und Tondauer 
in wenigen Zeilen komfortabel steuern. 


50 bis 70: Sobald die Lautstärke den Wert 14 erreicht, soll 
die Dauer der Verzögerungs-Schleife vergrößert werden, weil 
der Drache sonst zu schnell sein Feuer versprüht. 


80: Schließt die Schleife zu Zeile 20. 


18 SOUND 8,33,4,10 

28 FOR Z=8 TO 15:NEXT 2 
38 SOUND 8,08,0,8 

48 FOR Z=8 TO 15:NEXT 2 
s8 GOTO 10 


Aus der Tabelle ist zu lesen, daß die Frequenz 33 ein "sä- 
gendes Rauschen" in der Verzerrung 4 erzeugt. Mit dem 
oben stehenden Programm wird die Frequenz 33 in schneller 
Folge gespielt und ausgeschaltet. Dadurch ergibt sich ein 
schneller Actionsound, der als Begleitung für Gefahrenobjekte 
verwendet werden kann. Versuchen Sie |Ihr eigenes Glück und 
ändern Sie die Werte für die Variable Z (ZEIT wurde hier 
einmal abgekürzt). Durch den Befehl GOTO 10 in Zeile 50 
kehrt der Rechner immer wieder zum Anfang zurück. Durch 
Drücken der Taste RESET können Sie das Programm unter- 
brechen. 
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18 DIM FREQ(C2) 

28 FREQCB8)=2® 

38 FREQC(1)=32 

48 FREQC2)=41 

>58 FOR OFT=8 TO 18 

68 FOR X=8 TO 2 

78 SOUND 8,FREQCX>,4,15 

88 FOR ZEIT=8 TO 15:NEXT ZEIT 
98 SOUND 8,8,08,8 

188 FOR ZEIT=8 TO 15:NEXT ZEIT 
118 NEXT X 

128 NEXT OFT 


Dieses Programm erzeugt ebenfalls ein schnelles Actionge- 
räusch, das für allgemeine Gefahrensituationen eingesetzt 
werden kann. Hier wurden drei Frequenzen gewählt, die in 
ihrem Charakter ähnlich, in der Tonhöhe jedoch verschieden 
sind (s. Tabelle). Diese drei Frequenzen werden in Zeile 10 
indiziert; in den Zeilen 20 bis 40 wird dann jedem Index 
ein Wert zugewiesen. Zeile 50 läßt das Programm elfmal 
wiederholen. Mit Zeile 60 werden die indizierten Variablen 
aufgerufen und in Zeile 70 gespielt. Zwischen den Verzöge- 
rungs-Schleifen in 80 und 100 wird der Tonkanal immer wieder 
kurz abgeschaltet. Versuchen Sie dieses Programm auch mit 
dem Wert 20 für die Variable ZEIT. 
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Tabelle 4 
Frequenz 
255-248 


247 
246-217 


216 
215-186 


184-155 


154 
153-124 


123 
122-93 


92 
91-62 


60-43 


42-31 


30 






dumpfes, rhythnmisches Begleitsound für Bewegung 


Knurren technischer Objekte (z.B. Ro- 
boter) 


neo 


wie 255-248 wie 255-248; Maschinen; 
utopische Waffen 


nn 


wie 255-248, jedoch Sound für Regelwidrigkeiten; 
schneller und heller schwerer Motor niedriger 
Drehzahl 


PCIE FE 


intensives, rhythnisches 
Surren 















sehr elektronisch klingender 
Sound; utopische Flug- oder 
Fahrgeräusche; Weltraus- 
Hintergrund-Geräusch 


LITE HE PER 


schnelles, hämmerndes, wie 184-155 
rhythmisches Surren 


helles, schnelles, Warnsignal; Sound, um Aufnerk- 
rhythmisches Surren samkeit zu erhöhen; Verfol- 
gung; bewegungsreiche Action 
















[ICE EEE PER 


hämmerndes, rhythmisches Motor mittlerer Drehzahl; 


Surren Sound für Regelwidrigkeiten; 
Laserstrahl-Waffen 


keine spezifische Anwendung 


schneidendes, sägendes Motor hoher Drehzahl; Gefahr; 
Surren Sound, um Aufmerksamkeit zu 





erhöhen; Laserstrahl-Waffen; 
Begleitsound für unangenehme 
Objekte 


helles, durchdringendes, wie 60-43 
verzerrtes Summen 


oft unverzerrter Klang keine spezifische Anwendung 








Tabelle 4 


29-17 helles, verzerrtes, sehr elektronischer Sound; 
sägendes Summen allgemeine Fahr-, Flug- und 


Bewegungsgeräusche; Alarn- 
signal; gut in Verbindung wit 
Verzerrung 6 
Anwendungs-Beispiele 
























anderen Soundeffekten zu 
verwenden 


wie 29-17, jedoch in Verbin- 
bindung mit kleineren Objekten 


beste Anwendung in Verbindung 
mit anderen Soundeffekten (Ge- 
fahrenobjekte, Roboter, Flug- 
und Fahrgeräusche); sonst 
Signal für unverhoffte 
Situationen 


keine spezifische Anwendung 














wie 29-17 


halbmelodisch-halbver- 
zerrtes Summen 











helles Piepsen 


18 FOR FREQ=B8 TO 255 
28 SOUND 8,FREQ,6,18 
38 NEXT FREQ 


Dieses Programm ist nichts weiter als der einfache Durchlauf 
aller Frequenzen mit Hilfe einer FOR...NEXT-Schleife. Trotzdem 
ist der Effekt interessant. Man kann ihn einsetzen, wenn ein 
Objekt fauchend über den Bildschirm sausen soll. 


18 FOR FREQ=29 TO 17 STEP -1 
28 SOUND 8,FREQ,6,18 

38 FOR ZEIT=8 TO 28:NEXT ZEIT 
48 NEXT FREQ 

58 GOTO 18 


Das abgehackte, sägende Surren, das mit diesem Programm 
erzielt wird, ist ein herrlicher Begleitsound für ein "sehr 
aufdringliches Objekt". Natürlich können Sie auch hier die 
Angaben für das Frequenz-Spektrum und die Tondauer (ZEIT) 
nach Belieben verändern. 
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(Kommentar zum Programm Seite 36) 


10: Mit der FOR...NEXT-Schleife werden die Frequenzen 29bis 
17 aufgerufen. 


20: Die aktuelle Frequenz wird gespielt. 


30: Eine Verzögerungs-Schleife sorgt dafür, daß der Pro- 
grammdurchlauf nicht zu schnell beendet wird. 


40: Die nächste Frequenz wird aufgerufen. 


50: Führt zum Anfang zurück. Das Programm kann durch 
Drücken von RESET unterbrochen werden. 


18 FOR FRE@=16 TO 8 STEP -1 
28 SOUND 8,FREQ,6,18 

38 FOR ZEIT=8 TO 28:NEXT ZEIT 
48 NEXT FREQ 


Dieses kurze Programm ist ähnlich aufgebaut wie das vorher- 
gehende. Die Effekte sind jedoch sehr unterschiedlich. Sie 
hören hier ein typisches Video-Spiel-Geräusch, das z.B. in 
Flipper-Programmen, bei Punktgewinn oder -verlust eingesetzt 
werden kann. 


18 FOR FREQ=-5 TO 8 

28 SOUND 8,ABSCFREQ)I,6,10 
38 NEXT FREQ 

48 GOTO 18 


Mit diesem Anwendungs-Beispiel erhalten Sie ein sehr inten- 
sives Actiongeräusch. So wie in früheren Beispielen Absolut- 
werte der Lautstärke gespielt wurden, so werden hier die 
Absolutwerte der Frequenzen gespielt. 
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Tabelle 5 | Verzerrung 8 


255-210 dumpfes, unrhythnisches, in Verbindung wit anderen Fre- 


verzerrtes, knurrendes quenzen für Anfangs- und End- 
209-150 


Rauschen phasen von Explosionen, 
Erdbeben, Raketenstart; sonst 
149-120 
119-90 


allgemeine, unregelmäßige 
89-60 






















Rauschgeräusche 


wie 255-210 
"Elektrisieren"; Sound für 
Regelwidrigkeiten; Zusannen- 
prall von großen, langsan 
bewegten Objekten 















verzerrtes, schnarrendes 
unrhythmisches Rauschen 

























Donner-, Fauch- und Rausch- 
geräusche; am besten in Ver- 
bindung mit anderen Sound- 

effekten 


wie 149-120 
Sound für Regelwidrigkeiten; 
"Gegen die Wand rennen" 


verzerrtes, fauchendes, 
kmurrendes Rauschen 























helles, unrhythmisches, 
verzerrtes, knatterndes 
Rauschen 


wie 119-90, jedoch heller 











in kurzen Sequenzen sehr gut 
für fauchende Schußgeräusche; 
Mittelphase von Explosion und 
Raketenstart; allgemeine Fauch- 
und Rauschgeräusche 


verzerrtes, zischendes wie 89-60 
Rauschen 

29-10 intensives, helles, wıe 89-60 
fauchendes Rauschen 

0-1 












2 intensives, helles Zischen | Zischeffekte 
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Verzerrung 8 
Anwendungs-Beispiele 


18 FOR FREQ=8 TO 59 
28 SOUND B8,FREQ,8,1® 
38 NEXT FREQ 


Dieses Programm erzeugt ein fachendes Schußgeräusch. 


18 FOR LAUT=-18 TO 15 

28 SOUND 8,149,8,15-ABSCLAUT) 
38 SOUND 1,128,8,15-ABSCLAUT) 
48 SOUND 2,135,8,15-ABS(CLAUT) 
s8 FOR ZEIT=8 TO 5:NEXT ZEIT 
68 NEXT LAUT 


Vom Feuerdrachen war schon bei den Anwendungs-Beispielen 
der Verzerrung 4 die Rede. Aber auch in der Verzerrung 8 
läßt sich ein sehr gutes "Feuerfauchen" erzeugen. Gegenüber 
dem Beispiel auf Seite 32 klingt dieses Programm noch 
"atmender". 


18 FOR LAUT=15 TO 8 STEP -1 
28 SOUND 8,9,8,LAUT 

38 FOR ZEIT=8 TO 5:NEXT ZEIT 
48 NEXT LAUT 


Dieses Programm erzeugt einen hell zischenden Schuß. Mit 
der FOR...NEXT-Schleife aus Zeile 10 reduziert sich die Laut- 
stärkebis auf Null. Den Wert 5 aus der Verzögerungs-Schleife 
in Zeile 30 können Sie nach eigenem Geschmack verändern. 


18 FOR F=8 TO INTC8SOXRND(CB)I) 
28 L1=RND(B8)x12+3 

38 L2=RND(B8)x12+3 

40 SOUND 8,F,8,L1 

58 SOUND 1,F+18,8,L2 

68 NEXT F 

r8 GOTO 18 


Mit diesem Programm erleben Sie ein schreckliches Unwetter. 
Dazu werden zwei Tongeneratoren aktiviert, die zufällige 
Frequenzen und Lautstärken spielen. 
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(Kommentar zum Programm Seite 39) 


10: RND(0) erzeugt Zufallszahlen zwischen O0 und 1. Die 
Anweisung 80*RND(0) bringt demnach Zufallszahlen zwischen 
0 und 79. Da die vom Computer errechnete Genauigkeit von 
acht Stellen hinter dem Komma für die Frequenzangabe nicht 
nötig ist, wird durch die numerische Funktion INT (Integer) 
der erzeugte Zufallswert ganzzahlig ausgegeben. In Zeile 10 
wird also erreicht, daß der Rechner bei jedem neuen Pro- 
grammdurchlauf (s. Zeile 70) einen neuen Frequenzwert an- 
nimmt. Dadurch wird eine Unregelmäßigkeit der Blitz- und 
Donnergeräusche gewährleistet. 


20: Li ist die Lautstärke für den ersten Tonkanal. Sie wird 
ebenfalls zufällig generiert. Sie sehen hier eine andere 
Schreibweise des RANDOM-Befehls. Es wurde dabei auf Integer 
verzichtet und die Multiplikation hinter RND(O) gesetzt. Es 
bleibt ganz Ihnen überlassen, wie Sie die Anweisung schrei- 
ben. Das Ergebnis ist immer das Gleiche. Durch +3 wird 
erreicht, daß grundsätzlich zu allen zufällig erzeugten Laut- 
stärken 3 hinzugerechnet wird. Das vermeidet die Lautstärke 
0, bei der gar nichts zu hören wäre. 


30: Auch für den zweiten Tonkanal wird die Lautstärke zu- 
fällig generiert. 


40 und 50: Die aktuelle Frequenz wird in der aktuellen 
Lautstärke gespielt. Der zweite Tonkanal nimmt dabei immer 
einen Frequenzwert, der um 10 höher liegt, als der des 
ersten Kanals. 


60: Die nächste Frequenz wird aufgerufen. 


70: Führt zum Anfang des Programms zurück. 
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Tabelle 6 | Verzerrung 12 


255 dumpfes, schlagendes Begleitsound für Bewegung 
Surren schwerer Objekte 
ER 


253-252 dumpfes, hämmerndes allgemeiner Sound für Bewegung 
250 Surren 






















251 schnelles, schnarrendes Signal, um Aufmerksamkeit zu 
247-246 Surren erhöhen 
243 


241-240 


249-248 
245-244 
242 





verzerrtes Brummen 















allgemeine Brummgeräusche 











ee 


hämmerndes Schnarren Begleitsound für Bewegung 
technischer Objekte 





238-237 
235 
232-231 














intensives, verzerrtes 
Brummen 


Sound für Regelwidrigkeiten; 
utopische Flug- oder Fahrge- 
räusche 


234-233 halbmelodisches Summen Flug- oder Fahrgeräusche 


dunpfes, verzerrtes bei geringer Lautstärke Flug- 


Schnurren oder Fahrgeräusche; Dauer- 
Hintergrundsound für Weltraum 
228 
226-225 


wie 234-233 wie 234-233 
223-222 




















schnatterndes Schnarren keine spezifische Anwendung 


BEE Era ER 
215-214 














halbmelodisches Summen 





Flug- oder Fahrgeräusch; Sound 
für Maschinen; Motor hoher 
Drehzahl 








41 







Tabelle 6 | Verzerrung 12 


217-216 rhythmisches Knattern Sound für Regelwidrigkeiten 
213 


212 rhythmisches, schnurrendes | große Flugzeuge oder Schiffe 
206 Summen 
203 


211-210 
208-207 
206-205 
202-201 




























hämmerndes Schnattern keine spezifische Anwendung 











meistens kein Ton besser nicht anwenden 





























199 

200 verzerrtes Brummen Signal, um Aufmerksamkeit zu 
197 erhöhen 

198 rhythnisches, schlagendes | allgemeine Bewegungen 
196-195 Brummen 

193-192 

190 





Bm RT 
189-188 halbmelodisches Summen Schiffssirene; elektrische 


185 Maschinen 
182 


187-186 wie 198 wie 198 
183 
181-180 

179 


178-177 schnelles, rhythnisches Begleitsound für bedrohliche 
175 Surren Objekte 


172-171 
wie 189-188 




































halbmelodisches Summen 





176 
173 
170 


KEG 
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Tabelle 6 | Verzerrung 12 


typisches Elektromotor- Elektromotor; Sound, um Auf- 
Geräusch merksamkeit zu erhöhen; Sound 

für Regelwidrigkeiten; Begleit- 
sound für bewegte Objekte 




























168 
166-165 
163-162 


167 halbmelodisches Summen Begleitsound für große, bewegte 
161 Objekte 


EUCH STE 


160 wie 168 keine spezifische Anwendung 
157-156 


bei geringer Lautstärke Be- 
gleitsound für Bewegung großer 
Objekte 


mwelodisches Summen elektrische Maschinen 


hännerndes Brummen 





keine spezifische Anwendung 









158 dunpfes Brummen 
155 
























153 intensives, rhythmisches Sound für Regelwidrigkeiten 
151-150 Hännmern 
148-147 


145 


149 
146 
144-143 


142-141 
138 

136-135 
133-132 
130 










meistens kein Ton besser nicht anwenden 




















schnurrendes Hännmern utopisches Schußgeräusch 

















140 elektronisches Summen wie 154 
137 
131 





meistens kein Ton besser nicht anwenden 


helles, halbmelodisches Signal, um Aufmerksamkeit zu 
Summen erhöhen 





139 
134 
DEE 
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Tabelle 6 | Verzerrung 12 


127-126 rhythmisches, hämmerndes Sound für Regelwidrigkeiten; 
123 Surren "gegen die Wand rennen" 
121-120 


125-124 vollklingendes Summen Schiffssirene; Begleitsound für 
122 harmlose Objekte 
BEETC HEHE [TE PD EEE 


118-117 wie 127-126 wie 127-126 
115 
112-111 
108 
106-105 


116 
114-113 
110-109 
107 


























































intensives, vollklingendes 
Summen 


as 


rhythmisches, surrendes Motor niedriger Drehzahl; Flug- 
Summen oder Fahrgeräusche 


allgemeiner Belgeitsound für 
Bewegung; Sirene; Maschine 












103-102 
100 
97-96 
93 
91-90 




















Signal, um Aufmerksamkeit zu 
erhöhen; bei geringer Laut- 
stärke Flug- oder Fahrgeräusch 
kleiner Objekte 


Bee 


halbverzerrtes, Motor mittlerer Drehzahl; 
rhythmisches Schnarren Maschinengeräusche 


melodisches, halbver- 
zerrtes Summen 











4u 





Tabelle 6 | Verzerrung 12 


84 helles Summen keine spezifische Anwendung 
79 


kein Tor EN 


wie 88-87 wie 88-87 

















71 helles Summen bei geringer Lautstärke Signal 
69-68 für "Gefahr im Annarsch" 
65-64 












6 
Sn DI 
58-57 Motor höherer Drehzahl 


2 














56 melodisches Summen Begleitsound für Bewegung 
53 kleiner Objekte 
50-49 






47 




























55 helles, knurrendes utopische Schußwaffen; Gefahr; 
52-51 Summen Sound für Regelwidrigkeiten; 
48 Zusammenprall von Objekten 
46-45 


2 mies [nie 


4 
39-38 
35-34 
32 





54 meistens kein Ton besser nicht anwenden 
OR 
1 


kleine Maschinen; in geringer 
Lautstärke Hintergrundsound 
bei technischen Spielen 


helles, singendes Summen 
































40 intensives Surren elektrische Maschinen 
37-36 
33 
31-30 
BEE [7 CI N ER 
26 helles, singendes Surren kleine Maschinen 
24-23 
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20-19 helles, singendes Surren kleine Maschinen 
17 


| helles Summen Gefahrensignal; Elektromotor 
UETEEEE TI FE 


intensives, helles Summen | Signal, um Aufmerksamkeit zu 
erhöhen 
Fu abgeschwächtes Piepsen keine spezifische Anwendung 


Verzerrung 2 
Anwendungs-Beispiele 


18 LAUT=15 

28 FOR FREQ@=8 TO SB 

38 SOUND 8,FREQ,12,LAUT 

48 FOR ZEIT=8 TO 28:NEXT ZEIT 
58 LAUT=LAUT-8.25 

68 NEXT FREQ 


Dieser Soundeffekt läßt sich gut zur Beendigung eines Spiels 
einsetzen, wenn der Spieler eine Niederlage hinnehmen mußte. 
Mit der FOR...NEXT-Schleife in Zeile 20 werden dieFrequenzen 
0 bis 50 abgespielt, während sich in Zeile 50 die Lautstärke 
reduziert (bei jedem vierten Durchlauf um Eins). 


18 FOR LAUT=-18 TO 18 

28 SOUND 8,253,12,15-ABSCLAUT) 
38 SOUND 1,219,12,5 

48 FOR ZEIT=8 TO 18:NEXT ZEIT 
58 NEXT LAUT 

68 GOTO 18 


Dieses Programm erzeugt einen schwebenden und sehr elek- 
tronisch klingenden Sound. Er kann als Begleitung für son- 
derbare Objekte genommen werden, von denen eine Bedrohung 
ausgeht. 
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Der klingende Joystick 


Bei allem Spaß, den man mit den Anwendungs-Beispielen des 
letzten Kapitels haben kann: Nur mit "Trockenübungen" ist 
kein Spiel zu machen. (Genau. Wann geht's denn endlich 
los?) Wir sind fast mitten drin; aber es gibt nicht nur alte 
Programmierhasen, sondern auch Neulinge, die sich freuen, 
wenn ihnen BASIC-Schonkost vorgesetzt wird. 


Computerspiele sind besonders attraktiv, wenn neben den 
grafischen Ereignissen auf dem Bildschirm auch Sounds bei 
Joystick-Bewegungen entstehen. Man stelle sich Pac-Man ohne 
eilige Laufschritte und genüßliche Schluckgeräusche vor. 
(Gräßlich! Langweilig!) So ist es. Sounds in Spielen sind wie 
die Rosinen im Kuchen. (Und in diesem Kapitel wird nun 
gezeigt, wie man mit Joysticks einen klingenden Computerkuchen 
backen kann?) So könnte man es sagen. 


Die alten ATARI-Modelle haben vier Eingänge (Ports) für 
Joysticks; die neuen zwei. Abgefragt werden sie alle gleich: die 
Bewegung des Steuerknüppels mit STICK(x) und die Betätigung 
des Knopfes mit STRIG(x). Für (x) muß ein Wert von O bis 3 
eingesetzt werden; abhängig davon, welcher Port benutzt 
wird. 


10 14 6 


6 ei \\ 


O 


Jo} 
LT 
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Je nach Richtung nimmt STICK(x) den Wert an, den die Abbil- 
dung zeigt. Bei gedrücktem Knopf ist STRIG(x)=0, sonst =1. 


Im allgemeinen bewegt man mit dem Steuerknüppel eine Figur 
auf dem Bildschirm, während durch den Knopf ein Schuß aus- 
gelöst, eine Tür geöffnet, ein Gegenstand bewegt, ein Sprung 
durchgeführt wird usw. Die Möglichkeiten sind praktisch 
unbegrenzt. 


Hier ein Universalprogramm zur Steuerung einer Figur mit 
dem Joystick. Bei jeder Bewegung ertönt ein Sound. Nach 
diesen Prinzipien können Sie eigene Ideen entwickeln und 
verwirklichen. Auch die Spiele weiter hinten im Buch basieren 
auf dem hier gezeigten Grundmuster. 


18 GRAPHICS S+t16 

28 SETCOLOR 4,3,14 

38 SETCOLOR 8,18,8 

380 H=48:V=28 

58 JOY=STICK(®) 

68 IF JOY=15 THEN SOUND 8,0,8,8 
78 IF JOY<>15 THEN SOUND 8,80,4,15 
88 IF JOY=7 AND H<79 THEN H=H+1 
98 IF JOY=11 AND H>8 THEN H=H-1 
188 IF JOY=13 AND V<47 THEN V=V+1l 
118 IF JOY=14 AND V>8 THEN V=V-1 
128 IF STRIG(C®8)I=8 THEN GOSUB 20808 
138 COLOR 1:PLOT H,V 

148 FOR ZEIT=8 TO 15:NEXT ZEIT 
158 COLOR B8:PLOT H,V 

168 GOTO SB 

288 FOR F=8 TO 59 

218 SOUND 8,F,8,15 

228 NEXT F 

238 RETURN 


10: Die Grafikbetriebsart 5 wird ohne Textfenster gewählt. 
Auf weitere Einzelheiten des Grafik-Bereichs kann hier nicht 
eingegangen werden. Dieses Thema wird jedoch ausführlich in 
dem Buch "ATARI: Spiele programmieren - Schritt für Schritt" 
von Karl-Heinz Koch behandelt, das ebenfalls im Birkhäuser 
Verlag erschienen ist. 


20: SETCOLOR 4 wählt die Farbe für den Hintergrund. 


30: SETCOLOR O stellt die erste Zeichenfarbe zur Verfügung, 
die mit COLOR 1 in Zeile 130 auf den Bildschirm gebracht 
wird. Mit SETCOLOR 1 können Sie eine weitere Farbe wählen 
und mit COLOR 2 zeichnen. 
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40: Mit H=40 wird die horizontale Anfangs-Position des Spiel- 
cursors festgelegt. Die Variable V ist die vertikale Anfangs- 
Position. 


50: Für dieses Programm muß ein Joystick am ersten Port des 
Computers angeschlossen werden. Mit der Variable JOY wird 
die Bewegung des Steuerknüppels abgefragt. 


60: "Wenn JOY=15 (Ruhestellung), dann schalte den Tonkanal 
ab." 


70: "Wenn JOY<> 15(Bewegung), dann spiele den angegebenen 
Sound." 


80 bis 110: In diesen Zeilen werden jeweils zwei Bedingungen 
abgefragt. Zeile 80 z.B. würde in deutsch lauten: "Wenn 
JOY=7 (Steuerknüppel nach rechts) und die Horizontal-Position 
<79 ist, dann zähle der Horizontal-Position Eins hinzu." Durch 
die AND-Verknüpfung wird die Zeile nur ausgeführt, wenn 
beide Bedingungen zutreffen. In GRAPHICS 5 ist der Wert 79 
die höchste zulässige Bildschirm-Position. Alles weitere führt 
zu der Fehlermeldung ERROR - 3 (= Zahlenbereich falsch). Das 
Gleiche gilt, wenn ein Wert unter Null erreicht wird. 


120: "Wenn der Knopf gedrückt wird (Wert = 0), dann gehe 
ins Unterprogramm 200." 


130: Wie bei Zeile 30 bereits erklärt, zeichnet COLOR 1 die 
Farbe von SETCOLOR O0. PLOT H,V bringt einen quadratischen 
Punkt an die aktuelle Bildschirm-Position. Dieser PLOT ist 
der Spielcursor. 


140: Eine Verzögerungs-Schleife, die dafür sorgt, daß der 
Cursor nicht zu schnell über den Bildschirm saust. 


150: COLOR O zeichnet in der Hintergrundfarbe von SETCOLOR 
4 (Zeile 20). Mit PLOT H,V wird der zuvor in Grün gezeich- 
nete Cursor in der Hintergrundfarbe überPLOTtet. Der Sinn 
dieser Übung ist ganz einfach: Würde man den Cursor nicht 
auf diese Weise löschen, entständen bei der Bewegung Balken 
auf dem Bildschirm. Sie können das ausprobieren, indem Sie 
die Zeile 150 einfach einmal weglassen. 


160: Führt zur neuen Abfrage der Joystickbewegungen zurück. 
Ohne diese Zeile würde der Rechner das Programm nur einmal 
durchlaufen und ein freundliches READY ausgeben. 


200 bis 230: Bei Betätigung des Knopfes wird ein Schußeffekt 
abgespielt. In diesem Fall wurde das Anwendungs-Beispiel 
von Seite 39 genommen. Damit haben Sie den ersten praktischen 
Nutzen der komfortablen Soundmöglichkeiten des ATARI. 
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(Ach, war das schön!) Es kommt noch besser. (Etwa mit dem 
nächsten Programm?) Ja, denn bisher wurde unser geduldiger 
Spielcursor nur horizontal und vertikal bewegt. Die ATARI- 
Joysticks bieten aber auch eine diagonale Steuerungsmöglich- 
keit. Nun könnte man das Programm von Seite 46 ergänzen 
mit so langweiligen Zeilen wie: 


IF JoY=6 AND H<7?9 AND V>8 THEN H=H+1:V=V-1 


Das wäre nämlich alles notwendig, um fehlerlos diagonal in 
die rechte obere Ecke zu gelangen. Für die anderen Diagonal- 
richtungen müßten ähnlich aufwendige Zeilen geschrieben 
werden. (Das haben wir aber nicht nötig, oder?) Nein, das 
haben wir nicht nötig. 


Es gibt nämlich Boolesche Operatoren. (Ist das etwa der 
irische Mathematiker, der im 19. Jahrhundert lebte?) Genau 
der. Die Booleschen Operatoren sind AND, OR und NOT. AND 
wurde schon verwendet; mit der logischen Verknüpfung OR 
(= ODER) kann man die Joystickbewegungen aller Richtungen 
in nur vier Zeilen unterbringen. Tauschen Sie die Zeilen 
80 bis 110 im vorherigen Programm durch folgende Zeilen 
aus: 


88 IF H<79 THEN H=H+cC(JOY=5) OR (JOY=6) OR (JOY=7>) 
98 IF H>® THEN H=H-C(CJOY=9) OR (JOY=18) OR (JOY=119>) 
1898 IF V<47 THEN V=V+cCcJOY=5) OR (JOY=9) OR (JOY=13)) 
118 IF V>® THEN V=V-CcJOY=6) OR (CJOY=18) OR (JOY=14)) 


Zum besseren Verständnis blättern Sie am besten ein paar 
Seiten zurück und sehen sich die Werte auf der Abbildung 
des Joysticks noch einmal an. (Ist geschehen.) Gut. In Zeile 
80 sind alle Bewegungen zusammengefaßt, bei denen die hori- 
zontale Position des Cursors um Eins erhöht werden soll; 
JOY=5, JOY=6 und JOY=7. In Zeile 90 sind alle Bewegungen 
zusammengefaßt, bei denen die horizontale Position um Eins 
vermindert werden soll. Für die vertikalen Bewegungen sind 
die möglichen Werte in den Zeilen 100 und 110 zusammenge- 
faßt. 


Die Zahlen selbst, die hinter der Variable JOY stehen, werden 
bei dieser Verknüpfung nicht weiter berücksichtigt. Es in- 
teressiert nur, ob eine oder mehrere der abgefragten Bedin- 
gungen zutrifft. In diesem Fall ist sie im Sinne der Booleschen 
Gleichung "wahr". Dadruch wandelt sich das Zählbit für die 
Variable H oder V aus dem Wert O in eine 1. Wenn z.B. der 
Steuerknüppel nach oben gedrückt wird, tirfft die Bedingung 
(JOY=14) zu; sie ist "wahr". Also wird die Horizontal-Position 
um Eins vermindert. Alle anderen Bedingungen treffen nicht 
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zu; sie sind "unwahr" und damit = 0. (Also "Sein oder Nicht- 
Sein" ist hier die Frage?) Genau. Auch die Philosophen haben 
sich an Boole orientiert. (Und was ist mit NOT?) NOT negiert 
die Wahrheit (oder Unwahrheit). Wenn z.B. eine Bedingung 
"wahr" ist und ein NOT vorgeschaltet wird, gilt sie wieder 
als "unwahr'"' und umgekehrt. Sie können das im Porgramm 
einmal praktisch ausprobieren: 


68 IF NOT JOY=15 THEN SOUND 0,8,0,8 


Sobald Sie den Joystick bewegen ertönt wie gewohnt der Sound 
aus Zeile 70. Er hört aber in Ruhestellung nicht wieder auf, 
weil die "Wahrheit" für die Bedingung der Ruhestellung 
(JOY=15) durch NOT negiert wird. Somit ist sie nicht mehr 
"wahr" und der Tonkanal rumpelt munter weiter. Versuchen 
Sie noch folgendes Beispiel: 


68 IF NOT JOY<>15 THEN SOUND 0,0,0,8 
8 IF NOT JOY=15 THEN SOUND 8,88,4,15 


Jetzt hören Sie gar nichts mehr, weil der Rechner bei Bewe- 
gung keinen Ton hat, den er einschalten könnte und in 
Ruhestellung durch die Negierung der Soundeffekt unterdrückt 
wird. 


(Ich glaub', mich knutscht ein Elch OR ein Pferd!") Das ist 
NICHT WAHR! 


Was Sie wissen müssen: Neben den neun Stellungen, 
die ein Joystick einnehmen kann (acht Richtungen und 
Ruhestellung), lassen sich durch verknüpfte Abfrage 


von Steuerknüppel und Knopf weitere neun Steuerfunk- 
tionen durchführen; z.B. IF JOY=14 AND STRIG(0)=0 
THEN... 
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Tönende Tasten 


Alle Steuerungen, die mit dem Joystick möglich sind, lassen 
sich auch über die Tastatur durchführen. Man muß dazu den 
Datenkanal zur Tastatur öffnen. (Muß?) Na ja, nicht unbe- 
dingt. Eingaben sind auch mit dem INPUT-Befehl möglich. Aber 
bei INPUT-Eingaben wartet der Rechner immer erst auf das 
Drücken der RETURN-Taste, bevor er mit dem Programm fort- 
fährt. Das ist umständlich. 


Wird dagegen der Datenkanal zur Tastatur geöffnet, verarbeitet 
der Rechner die Eingaben sofort. Das ist praktisch. DieBASIC- 
Anweisung hierzu lautet: 


OPEN #1,4,8,”K:” 


Mit dem folgenden Befehl können dann die Eingaben gemacht 
werden: 


GET #1,A 


Wenn Sie diese beiden Statements in einem Programm verwenden 
und nach RUN eine Taste drücken, registriert der Rechner 
den sog. ASCII-Code (s. Anhang B) der Taste bzw. des be- 
treffenden Zeichens. Der ASCII-Code für den Buchstaben A 
ist z.B. 65, für B 66 usw. bis zum Z, das den ASCII-Code 
90 hat. (Und wann wird endlich geschossen?) Jetzt! 


18 OPEN #1,43,8,”K:” 

28 GET #1,A 

38 IF A<>65 THEN GOTO 28 
48 FOR F=8 TO 59 

5s8 SOUND 8,F,8,1®8 

680 NEXT F 

re SOUND 8,8,8,8 

88 GOTO 208 


10: Der Datenkanal zur Tastatur wird eröffnet. 


20: Die Abfrage nach dem gedrückten ASCII-Zeichen. 


30: Wenn die gedrückte Taste nicht dem ASCII-Code 65 (Buch- 
stabe A) entspricht, dann gehe zurück zur Zeile 20. 


40 bis 60: Wenn die Taste A gedrückt wird, ertönt ein Schuß. 


70: Nach dem Schuß wird der Tonkanal wieder abgeschaltet. 
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Nach diesem Prinzip können Sie die oberste Buchstabenreihe 


Ihres ATARI 


mit den Tönen einer Oktave belegen: 


18 OPEN #1,4,8,”"K:” 


98 IF 


GET #1,A 


A=81 
A=87 
A=69 
A=82 
A=84 
A=89 
A=85 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


F=122 
F=188 


F=97 
F=91 
F=81 
F=72 
F=65 


IF A=73 THEN F=61 
SOUND 8,F,18,108 

FOR Z=8 TO 188:NEXT 2 
SOUND 8,8,8,08 

GOTO 28 


Wenn Sie nach RUN die Tasten Q,W,E,R,T,Z,U oder | drücken, 
erklingen die entsprechenden Frequenzen 122, 108 usw. Das 
Programm erzeugt einen normalen Orgelton. (Damit geben wir 
uns aber nicht zufrieden, oder?) Nein, natürlich nicht. Es 
müssen nur die Zeilen 110 bis 150 wie nachfolgend geändert 
werden; dann erhält man einen elektrischen Klavier-Sound: 


118 FOR L=15 TO 8 STEP -8.5 
128 SOUND 8,F,1®8,L 

138 NEXT L 

148 SOUND 8,8,8,8 

158 GOTO 28 


Die Verzögerungs-Schleife entfällt hierbei. Dafür wird die 
Lautstärke reduziert, was einen Klavierton künstlich nach- 
ahmt. Sie können den Wert STEP -0.5 beliebig ändern. STEP 
-0.1 sorgt z.B. dafür, daß der Ton wesentlich länger aus- 
klingt. (Hört sich ja toll an!) Das ist noch gar nichts. Mit 
dem ATARI kann man ganz leicht einen echten Wah-Wah-Effekt 
programmieren. (Ich werd' verrückt. Wie denn?) So: 


118 FOR L1=15 TO 5 STEP -2 
128 FOR L2=-5 TO S 

138 SOUND 8,F,18,L1-ABS(CL2) 
138 NEXT L2 

158 NEXT Li 

168 SOUND 8,8,08,8 

178 GOTO 28 


Für den Wah-Wah-Effekt werden zwei FOR...NEXT-Schleifen 
ineinander verschachtelt. Durch die Zeile 110 nimmt die Laut- 
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stärke LI fortwährend um 2 ab. Beim ersten Druchlauf ist 
der Wert 15. Durch die zweite FOR...NEXT-Schleife wird LI 
nacheinander 5,4,3,2,1,0,1,2,3,4,5 abgezogen. Danach wieder- 
holt sich das Ganze mit dem neuen LI-Wert 13; dann mit 11 
usw. Mit dieser Programmstruktur erzielen Sie einen wunder- 
baren Wah-Wah-Effekt. 


Sicher werden Sie schon festgestellt haben, daß die Tasten 
des ATARI beim Drücken einen kurzen Kontrollton abgeben. 
Solange man Programme schreibt, ist das ganz nützlich. Beim 
Orgelspielen stört dieses dauernde Klicken jedoch. Bei den 
neuen ATARI-Modellen können Sie den Kontrollton durch POKE 
731,255 abstellen (Normalzustand POKE 731,0). 


Alle bisherigen Beispielprogramme für die Orgel haben ein 
Problem. (Ach je, jetzt kommt der berühmte Haken.) Ja, die 
Tondauer wird immer durch eine Verzögerungs-Schleife oder 
andere FOR...NEXT-Schleifen bestimmt. Richtiger Spaß entsteht 
aber erst, wenn die Töne so lange erklingen, wie eine Taste 
gedrückt wird. Das ist mit dem GET-Befehl nicht zu machen. 
Zum Glück gibt es eine andere Lösung. 


Das Register 764 speichert, welche Taste zuletzt gedrückt 
wurde. Allerdings sind dies keine ASCII-Werte, sondern ein 
"geheimnisvoller'"' Tastatur-Code. Im Anhang C finden Sie die 
einzelnen Werte, die der Rechner in diesem Register speichern 
kann. Damit läßt sich in verschiedener Weise gut arbeiten 
(Anwendungen für den Spiel- und Grafikbereich finden Sie 
in dem Buch "ATARI: Spiele programmieren - Schritt für 
Schritt'' von Karl-Heinz Koch). Hier in diesem Buch wird mit 
Hilfe dieses Registers eine Echtzeit-Orgel verwirklicht. 


Behilflich ist dabei ein zweites Register mit der vielsagenden 
Bezeichnung KEYDEL (Adresse 753). In ihm wird registriert, 
ob eine Taste gedrückt oder nicht gedrückt ist. Im ersten 
Fall steht in dem Register eine 3, im zweiten eine O0. Mit 
dem folgenden Programm können Sie durch Drücken der Tasten 
Q und W die Frequenzen 122 und 108 so lange spielen, wie 
die Tasten gedrückt sind: 


18 A=PEEK(764) 

28 B=PEEK(7S53) 

38 IF B=8 THEN GOTO 108 
48 IF A=47 THEN F=122 
s8 IF A=46 THEN F=108 
68 SOUND 8,F,18,18 

re GOTO 10 

188 SOUND 8,0,0,8 

118 GOTO 10 
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10: Durch PEEK wird das Register 764 abgefragt und der 
entsprechende Wert der Variable A zugewiesen. 


20: Der Wert aus Register 753 wird der Variable B zugeord- 
net. 


30: "Wenn keine Taste gedrückt ist (in Register 753 eine 0 
steht), dann gehe zur Zeile 100." 


40 und 50: Wenn die Taste Q gedrückt wird, soll der Fre- 
quenzwert = 122 sein. Durch Drücken der Taste W nimmt die 
Frequenz-Variable den Wert 108 an. 


60 und 70: Die gewählte Frequenz wird mit Zeile 60 gespielt; 
Zeile 70 führt ins Programm zurück. 


100 und 110: Wenn keine Taste gedrückt ist, wird der Tonkanal 
abgeschaltet. 


Nach diesem Prinzip ist das nachfolgende, umfangreiche Pro- 
gramm aufgebaut. Sie bekommen damit eine Echtzeit-Orgel, die 
ein-, zwei- oder dreistimmig spielen kann. 


18 REM ECHTZEIT-ORGEL 

28 GRAPHICS 1+16:SETCOLOR 4,8,08 

38 SETCOLOR 8,3,18:SETCOLOR 1,8,10 
38 SETCOLOR 2,15,14:SETCOLOR 3,18,1® 
s8 DIM A$(C15),B$(C15) 

58 Z=4 

188 READ X 

118 IF X=-1 THEN SP=8:2=2+3:GOTO 108 
128 IF X=-2 THEN 5P=8:2=2+8:GOTO 188 
138 IF X=-3 THEN GOTO 168 

148 COLOR X:PLOT SP,Z 

158 SP=SP+1 

155 GOTO 188 

168 A$="KL SEKUNDE” 

178 B$=A$ 

288 POKE 732,8 

218 D=1664:POKE D,® 

228 G=1.85946:G1=G:G2=G 

258 5=1:L1=18:L2=18:L3=10 

268 GOTO 1198 

388 A=PEEK(764) 

318 B=PEEK(7S53) 

328 C=PEEK(S53279) 

338 E=PEEK(732) 

358 IF B=8 THEN GOTO 1888 

488 IF E=17 THEN GOTO 110808 
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2108 
4208 
4308 
>88 
585 
5108 
515 
528 
525 
5308 
535 
548 
545 
5358 
355 
5368 
565 
>78 
575 
5808 
385 
>98 
395 
698 
788 
7108 
720 
730 
8808 
81ß 
820 
8308 
840 
8508 
988 
918 
928 
938 
948 
9508 
968 
18808 
1810 
1828 
1838 
1848 
1188 


IF C=3 THEN POKE D,® 
IF C=5 THEN POKE D,188 
IF C=6 THEN POKE D,288 


A=47 
A=30 
A=46 
A=42 
A=24 
A=408 
A=29 
A=45 
A=43 
A=S1 
Aa=11 
A=53 
A=13 
A=48 


THEN F1=145 
THEN F1=137 
THEN F1=129 
THEN F1=122 
THEN Fi1=115 
THEN F1=1088 
THEN F1=182 
THEN F1=97 
THEN Fi1=91 
THEN F1=86 
THEN F1=81 
THEN F1=77 
THEN F1=72 
THEN F1=68 


A=8 THEN F1=65 


A=10 
A=-54 
A=14 
A=55 
A=15 


THEN F1=61 
THEN F1=58 
THEN F1=54 
THEN Fi1=S1 
THEN F1=48 


GOTO PEEKCD)I+7BB 

IF D<>8 THEN SOUND 1,8,8,8:5SOUND 2,0,8,08 
SOUND 8,F1,18,L1 
S=1:POSITION 15,4:PRINT #6;5 
GOTO 388 

F2=F1/Gl1 

IF D<>188 THEN SOUND 2,0,8,8 
SOUND 8,F1,1®8,L1 

SOUND 1,F2,18,L2 
S=2:POSITION 15,4:PRINT #6;S5 
GOTO 388 

F2=F1/G1 

F3=F2/G2 

SOUND ®8,F1,108,L1 

SOUND 1,F2,18,L2 

SOUND 2,F3,18,L3 

5S=3: POSITION 15,4:PRINT #6;5 
GOTO 388 


IF A=6 AND L1>8 THEN Li=L1-8.5 
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1118 IF A=7 AND Li<15 THEN Li1=L1+0.5 
1128 IF A=7® AND L2>8 THEN L2=L2-0.5 
1138 IF A=71 AND L2<15 THEN L2=L2+8.5 
1148 IF A=134 AND L3>@ THEN L3=L3-0.5 
1158 IF A=135 AND L3<15 THEN L3=L3+8.5 
1168 IF A=44 THEN G1=G1*G:GOTO 1388 
1178 IF A=188 THEN G1=G1/G:GOTO 1380 
1188 IF A=28 THEN G2=G2xG:GOTO 1488 
1198 IF A=92 THEN G2=G2/G:GOTO 1498 
1288 POSITION 15,4:PRINT #6;5 

1218 POSITION 15,7:PRINT #6; INTCLI1), 
1238 POSITION 15,9:PRINT #6; INTCL2), 
1248 POSITION 15,11:PRINT #6; INT(L3), 
1258 POSITION 2,18:PRINT #6:A$, 

1268 POSITION 2,28:PRINT #6;Bs$, 

1278 IF PEEK(C732)=81 THEN POKE 732,8 
1288 GOTO 308 

1388 IF G1>1.85 THEN A$="KL SEKUNDE” 
1385 IF G1>1.12 THEN A$="GR SEKUNDE” 
1318 IF G1>1.18 THEN A$="KL TERZ” 
1315 IF G1>1.25 THEN A$="GR TERZ” 
1328 IF G1>1.33 THEN A$="QUART” 

1325 IF G1>1.41 THEN A$="VERM QUINT” 
1338 IF G1>1.49 THEN A$="QUINT” 

1335 IF G1>1.58 THEN A$="KL SEXT” 
1348 IF G1>1.68 THEN A$="GR SEXT” 
1345 IF G1>1.78 THEN A$="KL SEPTINME” 
1358 IF G1>1.88 THEN A$="GR SEPTINE” 
1355 IF G1>1.99 THEN A$="OKTAVE” 

1368 GOTO 1208 

1488 IF G2>1.85 THEN B$="KL SEKUNDE” 
1485 IF G2>1.12 THEN B$="GR SEKUNDE” 
1418 IF G2>1.18 THEN B$="KL TERZ” 
1415 IF G2>1.25 THEN B$="GR TERZ” 
1428 IF G2>1.33 THEN B$="QUART” 

1425 IF G2>1.41 THEN B$="VERM QUINT” 
14380 IF G2>1.49 THEN B$="QUINT” 

1435 IF G2>1.58 THEN B$="KL SEXT” 
1448 IF G2>1.68 THEN B$="GR SEXT” 
1445 IF G2>1.78 THEN B$="KL SEPTINE” 
1458 IF G2>1.88 THEN B$="GR SEPTIME” 
1455 IF G2>1.99 THEN B$="OKTAVE” 

1468 GOTO 1298 

1588 DATA 115,116,105,109,109,101,-1 
15085 DATA 236, 225,245,244,243,244,-2 
1518 DATA 201,206,212,197,219,214,193,204,204,-3 
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20 bis 40: Die Grafikbetriebsart und die Schriftfarben werden 
gewählt. 


50: Zwei Stringvariablen werden DIMensioniert. Sie drucken 
während des Spielens die aktuellen Intervalle aus, die von 
Ihnen eingestellt werden können. Ein Intervall beschreibt 
den Abstand, den zwei Töne zueinander halten. Das kleinste 
Intervall ist die Prim. Bei ihr besteht gar kein Abstand 
zwischen zwei Tönen; z.B. C zu C. Das nächste Intervall 
heißt Kleine Sekunde. Bei ihr besteht ein Abstand von einem 
Halbton; z.B. C zu Cis. Die Große Sekunde beschreibt einen 
ganztonigen Abstand; z.B. C zu D. In diesem Orgelprogramm 
werden Intervalle bis zu zwölf Halbtonschritten (eine Oktave) 
ausgedruckt. 


60: In der Bildschirmzeile 4 soll der erste Text des Programms 
stehen. Mit Z=4 wird eine Variable dafür festgelegt, die sich 
während des Programmablaufs noch ändert. 


100: Die Werte aus den Zeilen 1500 bis 1510 werden eingele- 
sen. 


110: "Wenn der Wert -1I ist, dann setze die Variable SP 
(Spalte) auf 0, rechne Z (Zeile) 3 hinzu und gehe zur Zeile 
100." 


120: "Wenn der Wert -2 ist, dann setze die Variable SP auf 
0, rechne der Zeilenvariable 8 hinzu und gehe nach 100." 


130: "Wenn der Wert -3 ist, dann gehe nach 160." 


140: In den Grafikbetriebsarten 1 und 2 können Sie mit Hilfe 
des COLOR-Befehls Buchstaben oder Zeichen in vier verschie- 
denen Farben aufrufen. In den Zeilen 20 bis 40 wurden diese 
Farben vorgewählt. Die Daten der Zeilen 1500 bis 1510 sind 
die einzelnen Buchstaben, die mit PLOT SP,Z nebeneinander 
auf den Bildschirm gebracht werden. 


150: Damit die Buchstaben nebeneinander stehen, muß der 
Spalten-Variable nach jedem PLOT Eins hinzugerechnet wer- 
den. Sobald ein Wort (z.B. Lautstärke) geschrieben ist, wird 
die Variable wieder auf O0 gesetzt (s. Zeilen 110 und 120), 
damit das nächste Wort exakt darunter steht. 


155: Solange nicht alle Daten gelesen sind, kehrt der Rechner 
zur Zeile 100 zurück. 


160 und 170: Zu Beginn hält die zweite Stimme zur ersten 
das Intervall "Kleine Sekunde" (Halbtonschritt). Das Gleiche 
gilt für das Intervall von Zweit- zu Drittstimme (B$). 


200: 732 ist das Register, mit dem die HELP-Taste abgefragt 
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werden kann. Wenn HELP gedrückt wird, nimmt das Register 
den Wert 17 an. Dieser Wert bleibt so lange erhalten, bis 
z.B. SHIFT+HELP gedrückt wird (Wert 81). Durch POKE 732,0 
wird das Register für die Abfragen während des Orgelspiels 
vorbereitet. 


210: Die Speicherstelle 1664 wird vom Rechner nur benutzt, 
wenn ein Maschinenprogramm oder eine sog. Display List 
programmiert wird. Da dies im Orgelprogramm nicht der Fall 
ist, kann man über 1664 frei verfügen, ohne befürchten zu 
müssen, daß es vom Computer während des Programmablaufs 
gelöscht wird. Zunächst wird in das Register 1664 eine Null 
gePOKEt. Weitere Erklärungen s. Zeilen 410 bis 430. 


220: Mit Hilfe des Wertes 1,05946 ersparen Sie sich stunden- 
langes Programmieren. Sicher haben Sie in den Zeilen 500 
bis 595 schon erkannt, daß dort die Frequenzwerte gespeichert 
sind, die je nach Tastendruck abgespielt werden sollen. Sie 
sehen aber auch, daß in den Zeilen nur die Angaben für 
die Erststimme enthalten sind. Da durch die vielen verschie- 
denen Kombinationen von Intervallen der Zweit- und Dritt- 
stimme eine Unzahl von Frequenzwerten möglich ist, wäre es 
sehr mühsam, alle diese Möglichkeiten vorher zu definieren. 
Viel einfacher ist es, das rechnerische Verhältnis von einem 
Ton zum nächsten Halbton (Kleine Sekunde) als Grundformel 
zur Errechnung der Zweit- und Drittstimme zu nehmen. Diese 
Grundformel lautet: 4, (= 1,05946). Wie Sie vom Anfang des 
Buches wissen, schwingt der Kammerton A mit 440 Hz. Wenn 
Sie 440*1,05946 rechnen, erhalten Sie 466,16. Das ist die 
exakte Schwingungszahl des Tons Ais. Mit dieser Formel kön- 
nen Sie alle Tonleitern rauf und runter rechnen. Zum Glück 
läßt sich das Ganze auch auf die BASIC-Frequenzwerte an- 
wenden; hier muß lediglich dividiert werden, wenn man zum 
nächst höheren Halbton kommen will; z.B. beim Ton C, dessen 
BASIC-Frequenzwert 122 ist. 122:1,05946=115,153. Das ist der 
exakte BASIC-Wert des Tons Cis. Die Variable G in diesem 
Programm ist die Grundformel, nach der alle Töne der zweiten 
und dritten Stimme errechnet werden. 


250: Zu Beginn ist die erste Stimme eingeschaltet (Variable 
S). Außerdem werden die Anfangswerte der drei Lautstärken 
festgelegt (Li, L2 und L3). 


260: Ab Zeile 1100 werden die Angaben für Stimme, Lautstärke 
und Intervall auf dem Bildschirm ausgegeben. 


300 und 310: Diese Register wurden bereits erklärt. 


320: Durch PEEK(53279) kann das Register abgefragt werden, 
in dem die Werte der Tasten OPTION, SELECT und START stehen. 
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330: Siehe Kommentar zu Zeile 200. 


350: Wenn keine Taste gedrückt ist, soll der Rechner zur 
Zeile 1000 springen, wo alle Tonkanäle ausgeschaltet werden. 


400: "Wenn die HELP-Taste gedrückt wird, dann gehe nach 
1100." 


410: "Wenn OPTION gedrückt wird, dann lege in Register 1664 
eine Null ab.'" Das Register wurde in Zeile 210 bereits er- 
klärt. In diesem Programm übernimmt es eine Hilfsfunktion. 
Denn die Speicherstelle 53279 registriert das Drücken von 
OPTION, SELECT und START nur so lange, wie die Taste ge- 
drückt wird. Danach steht wieder eine 7 im Register. Mit 
dem Ablegen einer Zahl im Register 1664 kann durch das 
Drücken von OPTION, SELECT oder START ein gewünschter 
Effekt auch nach dem Loslassen eingeschaltet bleiben. Denn 
im weiteren Verlauf des Programms wird immer auf 1664 Bezug 
genommen und nicht auf 53279. 


420: "Wenn SELECT gedrückt wird, dann lege in Register 1664 
den Wert 100 ab." 


430: "Wenn START gedrückt wird, dann lege in Register 1664 
den Wert 200 ab." 


500 bis 595: Hier werden die Frequenzwerte definiert, die 
je nach gedrückter Taste erklingen sollen. Die Zahlenwerte 
hinter A entsprechen dem Tastatur-Code aus Speicherstelle 
764 (s. Anhang C). 


690: Mit der Anweisung GOTO PEEK(D)+700 kommt der große 
Vorteil der Operationen aus den Zeilen 410 bis 430 zum Tra- 
gen: Wenn die OPTION-Taste gedrückt wurde, geht der Rechner 
zur Zeile 700, da in D (= Register 1664) eine Null abgelegt 
wurde. Ab Zeile 700 wird die erste Stimme über den ersten 
Tonkanal gespielt, während die anderen beiden ausgeschaltet 
bleiben. Falls zuvor SELECT gedrückt wurde, geht der Rechner 
zur Zeile 800, da in D der Wert 100 abgelegt ist (700 + 100 
= 800). Ab Zeile 800 werden zwei Stimmen gespielt, während 
die dritte schweigt. Falls die START-Taste gedrückt wird, 
geht der Rechner zur Zeile 900, wo alle drei Stimmen gleich- 
zeitig erklingen. 


700: Die Bedingung für diese Zeile trifft zu, wenn vom zwei- 
oder dreistimmigen Spiel wieder zum einstimmigen umgeschaltet 
wird. In diesem Fall müssen die beiden anderen Tonkanäle 
ausgeschaltet werden. 


710: Die gewählte Frequenz wird gespielt. 


720: Auf dem Bildschirm wird an der angegebenen Position 
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ausgegeben, daß die erste Stimme aktiv ist. 


730: Führt in den Programmteil zurück, wo die Abfragen nach 
Tastendruck etc. neu gestellt werden. 


800: Hier wird die Frequenz der zweiten Stimme errechnet. G1 
ist abhängig von dem Intervall, das Sie gewählt haben (zu 
Beginn Kleine Sekunde). 


810: Die Bedingung dieser Zeile trifft zu, wenn aus dem drei- 
stimmigen wieder ins zweistimmige Spiel umgeschaltet wird. In 
diesem Fall muß der dritte Tonkanal eine Null-Tonanweisung 
erhalten. 


820 und 830: Fi und die in Zeile 800 errechnete Frequenz 
F2 werden gespielt. 


840: Wie 720; hier wird eine 2 auf dem Bildschirm ausgege- 
ben. 


900 und 910: Siehe Erklärungen zu 800. 
920 bis 940: Die erste, zweite und dritte Stimme erklingen. 


950: Wie 720; hier wird eine 3 auf dem Bildschirm ausgege- 
ben. 


1000 bis 1030: Wenn keine Taste gedrückt ist (s. Zeile 300), 
dann schaltet der Rechner alle drei Tonkanäle ab. 


1100: In diese Zeile springt der Rechner, wenn die Taste 
HELP gedrückt wird. Sie können nun verschiedene Manipula- 
tionen durchführen, die nachfolgend beschrieben werden. Mit 
SHIFT+HELP können Sie das Unterprogramm verlassen und 
weiter Orgel spielen. Wenn Sie die Taste drücken und die 
Lautstärke der ersten Stimme größer Null ist, können Sie sie 
reduzieren. Die Einstellungen werden auf dem Bildschirm 
sichtbar. 


1110: Wenn die Taste gedrückt wird, kann die Lautstärke 
der ersten Stimme erhöht werden (bis maximal 15). 


1120: Wenn SHIFT + gedrückt wird, reduziert sich die 
Lautstärke der zweiten Stimme. 


1130: Wenn SHIFT + gedrückt wird, erhöht sich die Laut- 
stärke der zweiten Stimme. 


1140: Wenn CONTROL + gedrückt wird, reduziert sich die 
Lautstärke der dritten Stimme. 


1150: Wenn CONTROL + gedrückt wird, erhöht sich die 
Lautstärke der dritten Stimme. 


1160: 44 ist der Tastatur-Code der TAB-Taste. Mit ihr kann 
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das Intervall von erster zu zweiter Stimme verändert werden. 
Durch jedes kurze Drücken erhöht sich das Intervall um einen 
Halbton. Zu Beginn ist G1=1,05946 (entspricht dem Intervall 
Kleine Sekunde). Wenn also zum ersten Mal TAB gedrückt 
wird (nachdem Sie mit HELP in dieses Unterprogramm gelangt 
sind), dann wird 1,05946 mit 1,05946 multipliziert. Das bringt 
glatte 1,12245. Die Frequenz F2 in Zeile 800 entsteht dann 
durch die Division F1:1,12245. Das ist z.B. beim mittleren 
C (BASIC-Wert 122) der Wert 108, also der Ton D. Das ent- 
spricht dem Intervall Große Sekunde. Wenn das nächste Mal 
auf TAB gedrückt wird, erhöht sich der Wert Gl wieder um 
den Multiplikator 1,05946, also auf 1,189. Dividieren Sie nun 
den Ton C durch dieses neue Gl, erhalten Sie den Wert 102 
als Frequenzwert für F2. Das entspricht der Note Dis und 
ist gleichzeitig eine Kleine Terz. Durch den Sprung in den 
Zeilenbereich ab 1300 wird aufgrund des Gil-Wertes der Va- 
riable A$ der entsprechende Text zugewiesen, der dem Inter- 
vall genau entspricht. Dieser Text wird auf dem Bildschirm 
ausgegeben. Eine gute Anfangs-Einstellung der Intervalle ist 
z.B. Große Terz für das erste Intervall und Kieine Terz für 
das zweite Intervall. 


1170: 108 ist der Tastatur-Code für SHIFT+TAB. Mit dieser 
Funktion können Sie die Intervalle wieder rückwärts rechnen 
lassen. 


1180: 28 ist der Tastatur-Code der ESC-Taste. Wird sie ge- 
drückt, erhöht sich das Intervall von Zweitstimme zu Dritt- 
stimme in gleicher Weise wie bei 1160 beschrieben. 


1190: 92 ist der Tastatur-Code von SHIFT+ESC. Durch Drücken 
dieser beiden Tasten läßt sich das Intervall von Zweit- zu 
Drittstimme wieder reduzieren. 


1200: In Spalte 15, Zeile 4 wird ausgedruckt, welche Stimme 
aktiv ist. 


1210 bis 1240: Die Lautstärkenwerte der drei Stimmen werden 
auf dem Bildschirm ausgegeben. 


1250 und 1260: Die gewählten Intervalle werden ausgedruckt. 


1270: Wenn SHIFT+HELP gedrückt wird, POKEt der Rechner 
eine Null in Register 732. Dadurch wird die Eingabemöglich- 
keit für Intervalle und Lautstärken abgebrochen und die 
Orgel ist wieder spielbereit. 


1300 bis 1355: Je nachdem, welches Intervall in den Zeilen 
1160 oder 1170 errechnet wurde, nimmt A$ den zutreffenden 
Text an, der dann in Zeile 1250 auf dem Bildschirm ausge- 
geben wird. 
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1400 bis 1455: Das Gleiche wie 1300 bis 1355, jedoch für das 


zweite Intervall. 


1500 bis 1510: Die Daten für die Wörter, die zu Beginn auf 


den Bildschirm gebracht werden (s. 100 bis 155). 


Übrigens: Wie bei Zeile 220 bereits erklärt, entspricht der 
Multiplikator für die Frequenzen der !%W, (= 1,05946). Alle 
Werte, die Sie in den Zeilen 1305 bis 1355 sowie 1405 bis 1455 
sehen, entsprechen in ihrer Reihenfolge der W;2,1W,s usw. 


(Jetzt reicht's aber mit Musikwissenschaft!) Na klar. Schließ- 


lich funktioniert die Orgel auf einfachen Tastendruck. 


Rechnen besorgt der Rechner. 


EEEEES EEE BEN BEE EHE EEE EEE EEE EB HABE En Mn sunusnasusnsnıuanm 


uananaanE 


Intervall 
zu Stimme 3 
erhöhen 


+ SHIFT \ 
= vermindern 


Intervall 
zu Stimme 1 
erhöhen 


+ SHIFT 
.: vermindern 


ATARIBCHK] 


” 
En 
- 
| 
” 
- 
- 
” 

- 





Lauisiärke - Lautstärke + 
für Stimme 1 


mit SHIFT für Stimme 2 


mit COMTROL für Simme 3 
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Stimme 1 


Stlmme 1+3 


HELP = Klang- 
veränderungen 


SHIFT+HELP = 
weitersplelen 


Das 





Spiele mit Grafik und Sou 


Computer-Spielemüssen nicht nur in Hetzjagden und Abschießen 
von "Wesen!" ihren sog. kreativen Ausdruck finden. (Wird in 
diesem Buch etwa 'was anderes geboten?) Sicher; z.B. mit 
dem folgenden "Zauberpuzzle". 


Die Namensverwandtschaft mit "Zauberwürfel" ist natürlich 
kein Zufall. (Ach, wirklich?) Ja, wirklich. Allerdings sollte 
niemand glauben, "Zauberpuzzlie" sei die Computer-Version 


des Würfels. Die Verwandtschaft liegt mehr im Schwierigkeits- 
grad beider Spiele. 


Das Programm erzeugt auf einem Feld von 3 x 3 zufällige 
Buchstaben. Mit einem Jystick kann man am unteren und 
rechten Rand einen Cursor steuern und per Knopfdruck ein- 
zelne Buchstabenreihen umwandeln. Dabei erhöht sich jeder 
Buchstabe in der Reihenfolge des Alphabets; aus A wird B 
usw. Ein Z wandelt sich wieder zum A. Das Spielziel besteht 
darin, auf allen neun Feldern den gleichen Buchstaben stehen 
zu haben. (Klingt ganz einfach.) Ist es aber nicht. 


Denn es wandelt sich immer die ganze Reihe um. Geschickt 
muß man durch Hin- und Herfahren, vertikales, horizontales 
und diagonales Umwandeln die Buchstaben allmählich gleich- 
schalten. Nach einer halben Stunde wird sich der Eine oder 
Andere wie im römischen Dampfbad vorkommen. Man kann das 
Spiel sehr gut allein oder aber auch im Wettbewerb mit 
anderen spielen; z.B. indem man pro Teilnehmer nach zehn 
Minuten stoppt und festhält, wer die meisten gleichen Buch- 
staben erzeugen konnte. 


Die Steuerung des Cursors ist ganz einfach. Befindet sich 
der Cursor genau in einer Spalte oder Zeile, wird die gesamte 
Buchstabenreihe umgewandelt. In den Zwischenräumen wird 
die entsprechende Diagonale umgewandelt. Sie werden es 
sofort beherrschen. 


(So'n tolles Spiel mit so wenigen Programmzeilen?) Das ist 
das Schöne daran. Zu allen Vorgängen ertönen natürlich 
auch anregende Sounds. (Ist ja auch ein Soundbuch, oder?) 
Genau. Äber auch für hübsche Farbveränderungen ist gesorgt. 
Jeweils nach fünf Umwandlungen von Buchstabenreihen wechselt 
die Bildschirmfarbe. (Und warum heißt das Spiel dann nicht 
"Chamäleon'"?) Weil die Zollbehörden Bedenken hatten. 
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> DIM C(8):5P=12:ZE=9:FA=14 

18 GRAPHICS 2+16 

28 SETCOLOR 4,11,14 

38 SETCOLOR ®8,11,6 

48 FOR C=8 TO 8 

58 CCCI=INTC26KRNDCBI)I+ES 

68 NEXT C 

78 COLOR C(B8):PLOT 6,3:GOSUB 170 

88 COLOR C(C1):PLOT 8,3:GOSUB 170 

98 COLOR C(2):PLOT 10,3:GOSUB 178 

188 COLOR C(C3):PLOT 6,5:GOSUB 178 

118 COLOR C(C3):PLOT 8,5:GOSUB 178 

128 COLOR C(CS5)I:PLOT 18,5:GOSUB 178 

138 COLOR C(6):PLOT 6,7:GOSUB 178 

148 COLOR C(7):PLOT 8,7:GOSUB 178 

158 COLOR C(8):PLOT 18,7:GOSUB 178 

168 GOTO 228 

178 SOUND 8,91,2,10 

188 FOR Z=8 TO 15:NEXT Z 

198 SOUND 8,0,08,08 

288 FOR Z=8 TO 15:NEXT 2 

218 RETURN 

228 JOY=STICK(8):KN=STRIG(C®B) 

238 IF JOY<>15 THEN SOUND 8,71,18,6 

248 IF JOY=14 AND SP=12 AND ZE>=4 THEN ZE=ZE-1 

258 IF JOY=13 AND SP=12 AND ZE<=8 THEN ZE=ZE+1 

268 IF JOY=11 AND ZE=9 AND SP>=7 THEN SP=SP-1 

278 IF JOY=7 AND ZE=9 AND SP<=11 THEN SP=SP+1 

288 COLOR 138:PLOT SP,ZE 

298 FOR Z=8 TO S8:NEXT 2:SOUND 8,0,8,0 

388 COLOR 128:PLOT SP,ZE 

318 IF KN=1 THEN 228 

328 IF KN=8 AND SP=6 THEN CCB8)I=CCB8)+1:CC3)=CC3) +1: 
CEI=-C(6I +1 

338 IF KN=8 AND SP=8 THEN CC1)=CC1)+1:CC4)=Ccl4d)t1: 
CC7)I=Ct7)t1 

348 IF KN=8 AND SP=18 THEN C(C2)=C(2)+1:C(5)I=C(5It+1: 
ECcgI=c(8)+1 

358 IF KN=8 AND ZE=3 THEN C(B8)=CCB)+1:CC1)=CC1)t1: 
CC2)=C(2)+1 

368 IF KN=8 AND ZE=S5S THEN C(C3)=CC3)+1:CC3)=CC43)+1: 
CC5SI=-C5HIH+1 

378 IF KN=8 AND ZE=7 THEN C(6)I=CC6)+1:CC7)I=Cl7I+1: 
CCEI=Cl8I +1 

388 IF KN=8 AND SP=12 AND ZE=9 THEN C(B8)=C(B)+1: 
CCII=CC2I+1:CC8I=C(8)+1 

382 IF KN=8 AND SP=7 THEN CC5SI=CC5I+1:CC7I=CC7I+1 
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383 IF KN=8 AND SP=9 THEN CC3I=-CC3)+1:CC7)=CC7)+1 
384 IF KN=8 AND ZE=4 THEN CCSI=-CCH+t1:CC7/I=CC7)+1 
385 IF KN=8 AND ZE=6 THEN CC1)=CC1)+1:CC5I=C(l5I+1 
398 FOR C=8 TO 8 

488 IF CCC)>98 THEN CCC)=65 

418 NEXT C 

428 FOR F=8 TO 58 

438 SOUND 8,F,8,10 

438 NEXT F 

350 XY=XY+l 

468 IF XY=5 THEN GOSUB 588 

478 GOTO 78 

588 SETCOLOR 4,FA,14 

518. SETCOLOR ®,FA,6 

528 FA=FA-1:1IF FA=8 THEN FA=15 

5380 XY=® 

548 RETURN 


5: Mit DIM C(8) wird eine numerische Variable mit neun Ar- 
gumenten indiziert. SP und ZE sind die Anfangsspalte und 
-zeille des Spielcursors. FA ist die Hintergrundfarbe, die 
während des Spiels häufig wechselt. 


10 bis 30: Grafikbetriebsart und Farben von Buchstaben und 
Hintergrund werden gewählt. 


40 bis 60: Auf dem Spielfeld sollen neun zufällig gewählte 
Buchstaben erscheinen. Im ersten Durchlauf der FOR...NEXT- 
Schleife wird dem ersten Index der Variable C aus den 26 
Buchstaben des Alphabets (hier als ASCII-Zeichen) zufällig 
einer zugewiesen. Im zweiten Durchlauf wird C(1) ein Zu- 
fallsbuchstabe zugewiesen usw. 


70 bis 150: Die Zufallsbuchstaben werden in ein Feld von 
3x 3 auf den Bildschirm gePLOTtet. Durch den Sprung in 
das Unterprogramm 170 ertönt jedes Mal ein schnatternder 
Sound. 


220: Die Abfrage von Joystick und Knopf (Joystick muß am 
ersten Port angeschlossen werden). 


230: Wenn der Steuerknüppel in Ruhestellung ist, soll der 
angegebene Sound ertönen. 


240: Wenn der Steuerknüppel nach oben gedrückt wird, soll 
sich die Zeilenposition des Cursors um Eins vermindern. Durch 
die beiden AND-Bedingungen wird gewährleistet, daß der 
Cursor nur nach oben wandert, wenn er dabei keine Buch- 
staben überPLOTtet. 


250: Wenn der Steuerknüppel nach unten gedrückt wird, soll 
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sich die Zeilenposition des Cursors um Eins erhöhen. 


260 und 270: Das Gleiche wie 240 und 250, jedoch werden 
hier die vertikalen Bewegungen gesteuert. 


280: Mit dem COLOR-Befehl wird der Spielcursor in lila Farbe 
gewählt und auf den Bildschirm gePLOTtet. 


290 und 300: Eine Verzögerungs-Schleife und das PLOTten des 
Cursors in der Hintergrundfarbe. 


310: "Wenn der Knopf nicht gedrückt ist, dann gehe zur Zeile 
220." 


320 bis 385: In diesen Zeilen finden die Umwandlungen der 
Buchstabenreihen statt. Zeile 320 z.B. stellt die Bedingung: 
Wenn sich der Cursor in Spalte 6 befindet, dann erhöhe die 
Variablen C(0), C(3) und C(6) um jeweils Eins." Das sind 
genau die Buchstaben der obersten Reihe. Ebenso werden die 
anderen Spalten- und Zeilenpositionen des Cursors abgefragt 
und die entsprechenden Buchstabenreihen umgewandelt. 


390 bis 410: Durch diese FOR...NEXT-Schleife werden alle 
indizierten Variablenwerte abgefragt, ob ihr Wert über 90 
liegt (was nach der ASCII-Tabelle jenseits von Z wäre). Ist 
dies der Fall, soll sich der entsprechende Buchstabe wieder 
in ein A verwandeln (ASCII-Wert 65). 


420 bis 440: Hier wird ein fauchender Sound erzeugt, der 
beim Drücken des Knopfes ertönt. 


450 und 460: XY ist eine Zählvariable. Sobald der Knopf 
gedrückt wird, erhöht sich ihr Wert um Eins. Jedesmal wenn 
der Wert Fünf erreicht ist, geht der Rechner ins Unterpro- 
gramm 500, wo ein Farbwechsel für den Hintergrund vorge- 
nommen wird. 


500 und 510: FA wurde in Zeile 5 definiert. Sie ist die 
Variable, mit der die Farbwechsel vorgenommen werden. 


Was Sie wissen müssen: Bei längerer Beschäftigung mit 
diesem Spiel nimmt der Computer selbständig Farbwechsel 
vor, um den Bildschirm zu schonen. Im schlechtesten 


Fall sehen Sie dadurch die Buchstaben nicht mehr. Sie 
können dies umgehen, wenn Sie in Zeile 535 die Anweı- 
sung POKE 77,0 schreiben. Das schaltet den automa- 
tischen Farbwechsel des Rechners aus. 
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(Das war super!) Fein. Bei dem folgenden Spiel geht es auch 
um Buchstaben. (Wie gut, daß man lesen gelernt hat. Und 
wie heißt das nächste Spiel?) "Computer-Scrabble". 


Sie können dieses Spiel wunderbar allein spielen und ebenso 
wunderbar mit mehreren Personen. (Wie wunderbar.) Zu Beginn 
wird auf dem Bildschirm das Wort COMPUTER vorgegeben. (Wie 
einfallsreich.) Am unteren Bildschirmrand stehen sieben Buch- 
staben zur Verfügung, mit denen neue Wörter an COMPUTER 
angebaut werden können. Für jeden untergebrachten Buchstaben 
gibt es einen Punkt. (Wie gnädig.) Das ganze Spiel wird 
sehr komfortabel mit einem Joystick gesteuert. (Wie könnte 
es auch anders sein!) Sie können mit einem Cursor an den 
Buchstaben heranfahren, den Sie als nächstes verwenden 
wollen. Durch Drücken auf den Knopf verfärbt sich der be- 
treffende Buchstabe. Dann fahren Sie mit dem Cursor an die 
Stelle auf dem Bildschirm, an der Sie den eingefärbten Buch- 
staben hinsetzen wollen und drücken wieder den Knopf. Der 
Buchstabe springt an die Stelle und verschwindet gleichzeitig 
aus dem Vorrat. 


Wenn Sie aus dem Vorrat nichts mehr verwenden wollen oder 
können (oder alles verbraucht ist), fahren Sie mit dem Cursor 
einfach über die Punktestand-Anzeige und drücken den Knopf. 
Dadurch wird ein neuer Vorrat von sieben Buchstaben gebil- 
det. 


8 REM COMPUTER-SCRABBLE 

18 GRAPHICS 1+16 

28 SETCOLOR 4,8,8 

38 SETCOLOR 8,1,12 

38 SETCOLOR 1,5,12 

58 SETCOLOR 2,18,18 

68 SETCOLOR 3,8,18 

78 POSITION 6,8:PRINT #6; "”COMPUTER” 
88 FOR X=8 TO 6 

98 FOR L=-9 TO 9 

188 SOUND 8,182,18,15-X-ABSCL) 
118 NEXT L 

128 NEXT X 

138 DIM AC6) 

148 FOR X=8 TO 6 

158 ACX)I=INTC26*RNDCB)I)+97 
168 NEXT X 

178 FOR X=®8 TO 6 

188 COLOR ACX)I:PLOT P,23 
198 SOUND 8,41,6,108 

288 FOR Z=8 TO 38:NEXT 2 
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218 SOUND 8,0,0,8 

228 FOR Z=8 TO 58:NEXT 2 

238 P=P+1 

248 NEXT X 

258 P1=8:P2=21 

268 SP=SPt+t1 

278 IF SP=5 THEN POSITION 9,23:PRINT #6; "ENDE”:GOTO 278 
288 J=STICK(8):KN=STRIG(CO) 

298 IF J=11 THEN Pi1=P1-1 

388 IF J=7 THEN Pi=Pit+l 

318 IF J=14 THEN P2=P2-1 

328 IF J=13 THEN P2=P2+1 

338 IF Pi<1 THEN P1=® 

348 IF P1>18 THEN P1=19 

358 IF P2<1 THEN P2=8 

3568 IF P2>28 THEN P2=21 

378 LOCATE P1,P2,P3 

388 IF P3<>32 THEN GOTO 288 

398 COLOR 178:PLOT P1,P2 

488 SOUND 8,235,2,2 

418 FOR Z2=8 TO 15:NEXT 2 

4328 COLOR 32:PLOT P1,P2 

438 IF KN=8 AND P2=21 THEN GOSUB 468 

448 IF KN=8 AND P2<>21 THEN GOSUB 688 

458 GOTO 288 

468 P=® 

478 IF P1=8 THEN COLOR AC8)-32:PLOT P,23 
488 IF Pi=1 THEN COLOR AC1)-32:PLOT P+t1,23 
498 IF P1=2 THEN COLOR A(C2)-32:PLOT P+2,23 
588 IF P1=3 THEN COLOR AC3)-32:PLOT P+t3,23 
518 IF Pı1=4 THEN COLOR A(C4)-32:PLOT P+4,23 
528 IF P1=5 THEN COLOR A(C5)-32:PLOT P+S,23 
538 IF P1=6 THEN COLOR A(6)-32:PLOT P+6,23 
548 IF P1=17 OR P1=18 OR P1=19 THEN GOTO 148 
558 FOR F=15 TO 8 STEP -1 

568 SOUND 1,F,12,8 

578 NEXT F 

588 SOUND 1,0,8,08 

598 RETURN 

6588 P=8 

618 LOCATE P,23,58 

628 LOCATE P+1,23,S51 

6380 LOCATE P+2,23,52 

648 LOCATE P+3,23,53 

658 LOCATE P+4,23,54 

668 LOCATE P+5,23,55 

678 LOCATE P+6,23,S6 
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688 IF S8B=ACA)-32 THEN COLOR ACB8)-32:PLOT P1,P2: 
COLOR 32:PLOT P,23:GOTO 768 

698 IF S1=AC1)-32 THEN COLOR AC1)-32:PLOT P1,P2: 
COLOR 32:PLOT P+1,23:GOTO 768 

788 IF S2=A(2)-32 THEN COLOR AC2)-32:PLOT P1,P2: 
COLOR 32:PLOT Pt2,23:GOTO 768 

7ı8 IF 53=A(3)-32 THEN COLOR AC3)-32:PLOT P1,P2: 
COLOR 32: PLOT P+3,23:GOTO 768 

728 IF 54=A(3)-32 THEN COLOR AC4)-32:PLOT P1,P2: 
COLOR 32:PLOT P+4,23:GOTO 768 

738 IF 55=A(5)-32 THEN COLOR AC5I-32:PLOT P1,P2: 
COLOR 32:PLOT P+5,23:GOTO 768 

7438 IF 56=A(6)-32 THEN COLOR AC6)-32:PLOT P1,P2: 
COLOR 32:PLOT P+6,23:GOTO 768 

758 RETURN 

768 PU=PU+1 

778 POSITION 7,23:PRINT #6,PU 

788 SOUND 2,5,8,15 

798 FOR Z=8 TO 28:NEXT 2 

8088 SOUND 2,0,0,08 

818 PX=PX+1:1IF PX=5 THEN GOTO 838 

828 RETURN 

838 FOR F=38 TO 4 STEP -2 

848 SOUND 3,F,18,1® 

858 FOR Z=8 TO 15:NEXT 2 

868 NEXT F 

878 SOUND 3,8,8,8 

880 PX=® 

898 RETURN 


10 bis 60: Die Grafikbetriebsart und die Farben für Buchstaben 
und Hintergrund werden gewählt. 


70: In Spalte 6, Zeile 8 soll das Wort COMPUTER gePRINTet 
werden (etwa die Mitte des Bildschirms). 


80 bis 120: Zum Ausdruck COMPUTER ertönt ein kurzer Sound 
mit Wah-Wah-Effekt. 


130 bis 160: Eine Variable mit sieben Argumenten wird indi- 
ziert (die Null zählt mit). Jedem Element wird ein zufälliger 
Buchstabe zugewiesen. Dies ist der Vorrat, mit dem der 
Spieler neue Wörter an COMPUTER anbauen kann. 


170 bis 240: Nachdem die sieben Zufallsbuchstaben festliegen, 
werden sie mit Hilfe einer FOR...NEXT-Schleife nebeneinander 
auf den unteren Bildschirmrand gPLOTtet (Zeile 23). 
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250: Die Anfangspositionen des Cursors werden festgelegt 
(PI = Spalte, P2 = Zeile). Zu Spielbeginn befindet sich der 
Cursor immer über dem ersten Buchstaben aus dem Vorrat. 


260 und 270: SP ist die Zählvariable für die Spieldurchläufe. 
Wenn fünfmal ein neuer Buchstaben-Vorrat gewählt wurde, ist 
das Spiel beendet. Sie können diese Bedingung natürlich nach 
Belieben ändern. 


280: Die Abfrage des Joysticks und des Knopfes wird vorbe- 
reitet. 


290 bis 320: Eingedeutscht würde Zeile 290 lauten: "Wenn der 
Steuerknüppel nach links gedrückt wird, dann reduziere den 
Wert für die Horizontal-Position um Eins." Entsprechend wer- 
den die anderen Richtungen abgefragt. 


330 bis 360: Hier werden die zulässigen Positionen festgelegt, 
die der Cursor einnehmen darf. In der Grafikbetriebsart 1hat 
der Bildschirm 20 horizontale und 24 vertikale Positionen. 
Durch die Bedingung in Zeile 360 wird erreicht, daß der 
Cursor nie über den Buchstaben-Vorrat hinwegfährt (die sich 
in Zeile 23 befinden). 


370 und 380: Es muß verhindert werden, daß der Cursor über 
die Wörter hinwegfährt, die bereits gescrabblet wurden (das 
würde sie löschen). Mit dem LOCATE-Befehl wird festgestellt, 
welches Zeichen sich an der Cursor-Position befindet. Wenn 
sich an der Cursor-Position nur die Hintergrundfarbe befindet 
(ASCII-Code 32 bzw. "Leerzeichen"), dann wird der Cursor 
in Zeile 390 gePLOTtet. Wenn der lokalisierte Wert ungleich 
32 ist (also irgendein Buchstabe), dann soll der Rechner zur 
Zeile 280 zurückgehen und warten, daß mit dem Joystick eine 
zulässige Position angefahren wird. 


390: Wenn sich an der Cursor-Position kein Buchstabe befin- 
det, wird mit dieser Zeile der Cursor auf den Bildschirm 
gePLOTtet. COLOR 170 birngt ein grünes Sternchen (vergl. 
mit SETCOLOR 2,10,10 in Zeile 50). 


400 und 410: Mit dem Erscheinen des Cursors ertönt leise ein 
ein surrender Sound. 


420: Der Cursor wird mit der Hintergrundfarbe überPLOTtet, 
damit während der Bewegung keine Sternchen-Linien auf dem 
Bildschirm entstehen. 


430: "Wenn der Knopf gedrückt wird und die Zeilenposition 
des Cursor = 21 ist, dann gehe ins Unterprogramm 460." 


440: "Wenn der Knopf gedrückt wird und die Zeilenposition 
des Cursors ungleich 21 ist, dann gehe ins Unterprogramm 600." 


72 


460 bis 530: Wie Sie in den Zeilen 170 bis 240 sehen können, 
ist die Variable P die Spaltenposition für den Buchstaben- 
Vorrat. Da sich durch die Zählvariable in Zeile 230 P noch 
auf Sechs befindet, wird sie zunächst auf Null gesetzt. In 
den Zeilen 470 bis 530 wird festgestellt, in welcher Spalte 
sich der Spielcursor befindet, wenn der Knopf gedrückt wird. 
Der Wert für die Zeile steht fest, da der Rechner in dieses 
Unterprogramm nur springt, wenn sich der Cursor in Zeile 
21 befindet. Eingedeutscht würde Programmzeile 470 lauten: 


''Wenn die Spaltenposition des Cursors = O0 ist, dann rechne 
A(0)-32 und PLOTte diesen neuen ASCII-Wert ind Spalte P, 
Bildschirmzeile 23." Programmzeile 480 lautet: "Wenn die 
Spaltenposition des Cursors = 1 ist, dann rechne A(1)-32 und 


PLOTte diesen neuen ASCII-Wert in Spalte P+1,Bildschirmzeile 
23." Der Sinn dieser ganzen Aktion liegt darin, daß sich die 
Buchstaben aus dem Vorrat verfärben sollen, wenn sich der 
Cursor zwei Zeilen über ihnen befindet und der Knopf gedrückt 
gedrückt wird. Die Verfärbung kommt dabei auf einfache 
Weise zustande. Sie sehen in Zeile 150, daß den Zufallsbuch- 
staben 97 hinzugerechnet wird. Dadurch nehmen die Buchsta- 
ben die Farbe Lila an (vergl. SETCOLOR 1,5,12 in Zeile 40). 
Wenn diesen Werten nun 32 abgezogen wird, erhalten Sie die 
gleichen Buchstaben in der Farbe Goldgelb. Sie können statt 
-32 auch +97 schreiben; dann erhalten Sie die gleichen Buch- 
staben in Grün. 


540: In den Spalten 17, 18 und 19 wird der Punktestand des 
Spielers ausgedruckt. Wenn mit dem Cursor an diese Stellen 
gefahren und der Knopf gedrückt wird, geht der Rechner zur 
Zeile 140, wo ein neuer Buchstaben-Vorrat erzeugt wird. 


550 bis 580: Sobald in den Zeilen 470 bis 530 ein Buchstabe 
seine Farbe gewechselt hat, ertönt ein schneidender Sound. 


600 bis 670: Sobald der Knopf gedrückt wird und sich der 
Cursor nicht in der Bildschirmzeile 21 befindet, springt der 
Rechner in die Zeile 600. Hier werden die ASCII-Codes der 
Buchstaben ermittelt, die sich im Vorrat befinden. Die er- 
mittelten Werte werden 50, 51, S2 usw. zugewiesen. 


680 bis 740: Mit diesen Zeilen wird erreicht, daß nur Buch- 
staben an Wörter angebaut werden können, die der Spieler 
vorher goldgelb "eingefärbt" hat. Zeile 680 z.B. lautet: "Wenn 
S0O=A(0) in Goldgelb ist, dann PLOTte diesen Buchstaben an 
die Stelle auf dem Bildschirm, an der sich der Cursor be- 
findet. Danach PLOTte an die Stelle des verbrauchten Buch- 
stabens ein Leerzeichen (COLOR 32)". Damit wird erreicht, daß 


Buchstaben, die "verscrabblet"' wurden, aus dem Vorrat ver- 
schwinden. 
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760: Der Punktzähler. Jedesmal, wenn ein Buchstabe an ein 
Wort angebaut wurde, erhöht sich die Punktzahl. 


770: In Spalte 17, Zeile 23 soll der aktuelle Punktestand 
ausgedruckt werden. 


780 bis 800: Wenn ein Buchstabe angebaut wurde, erklingt 
ein schußartiger Sound. 


810: PX ist eine weitere Zählvariable für den Punktestand. 
Immer, wenn fünf Punkte erreicht sind, erklingt ab Zeile 830 
eine kurze Siegesmelodie. 


830 bis 890: Wenn die Zählvariable PX aus Zeile 810 den 
Wert 5 erreicht hat, erklingt hier eine kurze Siegesmelodie, 
bei der die Frequenzen 30 bis 4 auf dem dritten Tonkanal 
gespielt werden. Der dritte Tonkanal wurde gewählt, damit 
die anderen Sounds (Bewegung des Cursors und Knopfdruck- 
Geräusche) nicht unterbrochen werden. In Zeile 880 muß die 
Zählvariable PX wieder auf Null gesetzt werden, bevor der 
Rechner ins normale Programm zurückkehrt. 


Was Sie wissen müssen: Sie können das Spiel noch 
komfortabler machen, wenn Sie nach Beendigung (Zeile 


270) durch Knopfdruck erreichen, daß ein neues Spiel 
begonnen wird. Folgende Zeilen müssen Sie dazu 
ergänzen bzw. ändern: 





278 IF SP=5 THEN POSITION 9,23:PRINT #6; "ENDE”:GOTO 1888 
1888 KN=STRIG(CB) 

1818 IF KN=8 THEN RUN 

1828 GOTO 1882 
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Genug der Buchstabenspiele. (Gibt's jetzt endlich den Krimi?) 
Klar, jetzt gibt's den Krimi: Phantomas treibt wieder sein 
Unwesen. Diesmal will er goldene Vasen klauen. Aber Sie 
können das verhindern. 


In diesem Phantomas-Spiel wird die Player-Missile-Grafik 
angewendet. (Ist das was zum Essen?) Nein, das ist eine 
hochauflösende Grafik, die unabhängig vom sonstigen Bild- 
schirminhalt arbeitet und sehr komfortable Spielmöglichkeiten 
bietet; z.B. können leicht Kollisionen von Playern registriert 
oder Prioritäten bestimmt werden. (Prioritäten?) Ja, etwa: 
Player 1 soll Priorität vor Player 2 haben. Wenn dann beide 
kollidieren, erscheint Player 1 im Vordergrund, während 
Player 2 dahinter verschwindet. 


In diesem Spiel hat die goldene Vase Priorität über Phanto- 
mas. Das bewirkt, daß die blaue Maske des Phantomas immer 
geheimnisvoll hinter der Vase verschwindet, wenn er mit ihr 
in Berührung kommt. Die Programmierung von Player-Missile- 
Grafik ist relativ kompliziert. Deshalb wird in dem Kommentar 
zum Listing nur das Wichtigste erklärt. Im Birkhäuser Verlag 
ist jedoch ein Buch über Player-Missilie-Grafik in Vorberei- 
tung, in dem dieses Thema ausführlich behandelt wird. 


"Phantomas!" wird mit einem Joystick gespielt. Damit bewegen 
Sie eine kleine rote Kanone am unteren Spielfeldrand. Es hat 
aber keine Sinn, einfach loszuballern, wenn Phantomas auf 
dem Bildschirm erscheint. Sie müssen vorher die Schußweite 
einkalkulieren: Je nachdem, wie lange Sie den Steuerknüppel 
nach oben drücken, entfernt sich der Schuß (Missile) unter- 
schiedlich weit von der Kanone. Wenn Sie gar nicht nach 
oben drücken, verpufft die Kugel gleich am Kanonenrohr. Es 
gehört eine Menge Übung und Geschicklichkeit dazu, den 
Steuerknüppel im richtigen Zeitmaß nach oben zu drücken, 
wenn die Kugel den beutehungrigen Phantomas erwischen 
soll. 


Kollidiert Phantomas mit der Vase, erscheint im Textfenster 
eine entsprechende Trauermeldung. Verschiedene Textmeldungen 
gibt es auch, wenn Sie Phantomas oder aus Versehen die 
goldene Vase erwischen. Immer, wenn Sie den Räuber mit 
einer Kugel treffen, gibt es einen Punkt; umgekehrt erhält 
Phantomas einen Punkt, wenn er eine Vase geklaut hat. So 
einfach ist das. (Und das soll Spaß machen?) Was heißt hier 
Spaß! Es ist die Pflicht eines jeden guten Computer-Detektivs, 
Staatseigentum zu beschützen. Die goldenen Vasen sind schließ- 
lich unwiederbringliches Kulturgut. Also schnell das Listing 
abtippen, den Kommentar durchlesen und RUN an die Arbeit. 
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8 REN PHANTOMAS 


18 

20 

38 

208 

=] ] 

68 

78 

88 

98 

188 
118 
128 
138 
148 
158 
168 
1708 
180 
198 
288 
218 
228 
2308 
2408 
258 
268 
2708 
280 
298 
388 
31® 
328 
338 
348 
358 
368 
378 
3808 
398 
408 
410 
420 
438 
4430 
450 
468 
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GRAPHICS 7 

SETCOLOR 8,18,12 

SETCOLOR 1,4,12 
SETCOLOR 2,18,8 

DATA 126,60,24,24,68,126,126,255 
DATA 255,255,126,68,24,126,255 

DATA 16,16,16,56,186,254,214 
DATA 129,195,255,255,153,255,255 

DATA 255,195,255,126,6® 

POKE 752,2:PRINT ” MOMENT BITTE?!” 
SOUND 8,122,18,5 

COLOR 1:PLOT 65,32:DRAUTO 84,32 

DRAUTO 84,56:DRAWUTO 65,56:DRAUTO 65,32 
COLOR 2:PLOT 67,34:DRAWTO 82,34 


DRAUTO 82,54: DRAUTO 67,54:DRAWTO 67,34 

GOSUB 748 

PRINT CHR$(1259;” Bewachen Sie die goldene Vase!” 
SOUND 1,97,18,5 


FOR Z=8 TO 8088:NEXT 2 

PRINT CHR$(C125)9;” Achtung! Gleich kommt: ” 
SOUND 2,81,18,5 

FOR Z=8 TO 888:NEXT 2 

PRINT CHR$(125);” PHANTONMA S" 
SOUND 3,68,18,5 

DIM A$C498)3,B$C408),C$C498),X$(48) 

A$=" PHANTOMAS HAT DIE VASE GEKLAUT?” 

B$=" He! Sie haben die Vase getroffen!” 
ce$=" Sie haben PHANTOMAS erwischt!” 

FOR Z=8 TO 888: NEXT Z: PRINT CHR$(C125) 

SOUND 8,8,8,8:SOUND 1,8,8,8 

SOUND 2,8,8,8:SOUND 3,8,8,0 

PRINT CHR$(C253) 

PH=PL+128:POKE 785,138:M1=PL-128 
V2=INTC6B8XRNDCB))+1B 

HX=INTC2X*XRND(CO)) 

IF HX=8 THEN H=35:BW=®8 

IF HX=1 THEN H=212:BU=1 

FOR D=PH+V2 TO PH+V2+11 

READ X:POKE D,X:NEXT D 

FOR LA=-13 TO 13 

J=STICKCc8):KN=STRIG(CB) 

FOR 2=8 TO 6 

POKE 53249,H 

SOUND 8,98,6,13-ABS(LA)I:SOUND 1,8,8,13-ABSCLA) 
IF BU=8 THEN H=H+1 

IF BU=1 THEN H=H-1 


478 POKE 53278,1 

488 IF J=7 AND HK<288 THEN HK=HK+1.3 
498 IF J=11 AND HK>45 THEN HK=HK-1.3 
Ss88 IF J=14 AND ZA<7S THEN ZA=2Ar+r2 
>18 IF KN=8 THEN GOSUB 638 

528 POKE S53258,HK 

538 KOL1=PEEK(53261):KOL2=PEEK (53258) 
548 IF KOL1<>8 THEN X$=A$: PPH=PPH+1:GOTO 948 
>58 IF KOLZ=1 THEN X$=B$:GOTO 948 
568 IF KOLZ=2 THEN X$=C$:PSP=PSP+1:GOTO 1858 
>78 NEXT Z:NEXT LA 

588 POKE 53277,2 

>98 FOR D=PH+V2 TO PH+V2+11 

688 POKE D,8:NEXT D 

618 RESTORE 88 

528 V2=8:GOTO 3408 

65638 V4=85-ZA 

648 POKE MI+V4,255:POKE MI+V4+1,255 
658 POKE 53254,HK+3 

668 POKE 53277,3 

678 FOR FR=1 TO 19 

688 SOUND 2,FR,2,15:50UND 3,FR,2,15 
698 FOR Z=8 TO S:NEXT Z:NEXT FR 

‘ee SOUND 2,8,8,8:SOUND 3,8,0,8 

r18 POKE MI+V4,8:POKE MI+V4+1,8 

728 ZA=® 

738 RETURN 

748 TA=PEEK(106)-24 

S8 POKE 54279,TA 

768 PL=-TAx256+512 

rr& FOR L=PL-128 TO PL+383 

788 POKE L,®8:NEXT L 

798 V1=53 

888 POKE 559,46 

818 POKE 53277,3 

828 POKE 7084,30 

838 POKE 53248,119 

848 FOR D=PL+V1 TO PL+V1+14 

858 READ X:POKE D,X:NEXT D 

868 V3=89:HK=119 

878 KA=PL+256 

888 FOR D=KA+V3 TO KA+V3+6 

898 READ X:POKE D,X:NEXT D 

988 POKE 7086,56 

918 POKE 623,20 

928 POKE 77,0 

938 RETURN 


948 PRINT X$: PRINT 

958 PRINT "STAND PHANTOMAS: ";PPH 
968 PRINT "IHR STAND: ”".PSP: 
978 FOR L=PL TO PL+127 

988 POKE L,® 

998 SOUND 9,FR,12,15:SOUND 1,FR,18,8 
1800 FR=FR+1 

1818 NEXT L 

1829 SOUND 8,9,8,8:SOUND 1,0,9,8 
1838 FR=8:RESTORE 

1848 GOSUB 778:GOTO 299 

1858 PRINT X$: PRINT 

1868 PRINT "STAND PHANTOMAS: ”:;PPH 
1878 PRINT "IHR STAND: "PSP, 
1888 BR=1:FR=5 

1898 SOUND 8,FR,8,15 

1188 SOUND 1,FR,8,15 

1118 SOUND 2,FR,8,15 

1128 SOUND 3,0,0,8 

1138 POKE 53257 ,BR 

1148 FOR Z=8 TO 5:NEXT 2 

1158 BR=BR+1:FR=FR+5 

1168 IF FR<>28 THEN 1090 

1178 SOUND 8,0,8,8:SOUND 1,8,8,9:SOUND 2,0,8,8 
1189 POKE 53257,0 

1198 POKE 53249,0 

1288 RESTORE 

1218 GOSUB 778:GOTO 298 


128 64 32 16 8 & 2 1 


12864 32 16 8 4 2 1 12864 32 16 8 4 2 1 





78 


10 bis 40: Die Grafikbetriebsart und die Farben für Hinter- 
grund, Text und Linien werden gewählt. 


50 bis 90: Hier stehen die Daten für die drei Player, die 
in diesem Spiel vorkommen (s. Skizzen). 


100: Durch POKE 752,2 wird der normale Cursor unsichtbar, 
der sonst im Textfenster erscheinen würde. "MOMENT BITTE" 
wird ausgedruckt, weil der Rechner im Unterprogramm 740 
einige Zeit zum Aufbau der Player-Missile-Tabelle benötigt. 


110 bis 150: Der Ton C wird gespielt, damit "MOMENT BITTE" 
nicht so langweilig ist. Mit den PLOT...DRAWTO-Befehlen 
werden zwei Rahmen auf den Bildschirm gebracht, die die 
goldene Vase (Player 0) umranden. 


160: Im Unterprogramm 740 wird die Player-Missile-Tabelle 
aufgebaut. 


170 bis 190: CHR$(125) löscht das Textfenster. Auf dem zweiten 
Tonkanal wird die Note E gespielt. Die Verzögerungs-Schleife 
sorgt dafür, daß der neu gePRINTete Text nicht gleich wieder 
verschwindet. 


200 bis 240: Das Textfenster wird wieder gelöscht und durch 
neue Texte ersetzt. Zwei weitere Töne erklingen auf dem 
dritten und vierten Tonkanal. 


250 bis 280: Vier Stringvariablen werden für je 40 Zeichen 
DIMensioniert und in den folgenden Zeilen mit verschiedenen 
Texten versehen, die im Verlauf des Spiels immer wieder 
eingeblendet werden. 


290 bis 310: Nach Ablauf einer weiteren Verzögerungs-Schleife 
wird das Textfenster gelöscht und die Tonkanäle abgeschal- 
tet. 


320: Mit CHR$(253) kann man den Kontrollton erzeugen, der 
auch durch Drücken von CONTROL+2 erklingt. In diesem Spiel 
dient er zum Vorwarnen: Jetzt geht's los! 


330: Phantomas ist der zweite Player, der in diesem Spiel 
benutzt wird. Da für die Festlegung der Form eines Players 
128 Byte Speicherplatz benötigt werden und die Vase der 
erste Player ist, beginnt die Speicheradresse für Phantomas 
128 Byte hinter der Adresse der Vase. Dies ist der Sinn von 
PH=PL+128. Mit POKE 705,138 wird die Farbe von Phantomas 
bestimmt. Der Wert ergibt sich aus: Farbe*16+tHelligkeit. In 
diesem Beispiel wurde blau (Wert 8) und Helligkeitsstufe 10 
gewählt: 8*16+10=138. Sie können jede beliebige Farbe nach 
dieser Formel ausrechnen und anstelle von 138 in Register 
705 einPOKEn. Die Anfangsadresse für die Missiles (in diesem 
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Fall die Kanonenkugel) liegt in der Player-Missile-Tabelle 
128 Byte vor der Adresse des ersten Players. Daher wird 
MI=PL-128 definiert. 


340: Die vertikale Position des Phantomas (V2) soll im Verlauf 
des Spiels immer wieder verschieden sein. Mit dem Random- 
Befehl erhalten Sie Werte von 10 bis 69. In diesem Bereich 
bewegt sich Phantomas. Werte über 69 würden in das untere 
Textfenster hineinreichen, was in diesem Spiel nicht erwünscht 
ist. 


350: Für Phantomas soll nicht nur die vertikale Position 
zufällig sein, sondern auch, ob er von der rechten oder 
linken Seite in den Bildschirm eintritt. Das wird in dieser 
Zeile vorbereitet. 


360 und 370: Wenn der in Zeile 350 zufällige Wert = O ist, 


soll Phantomas von links in den Bildschirm kommen (die 
Horizontal-Position H=35 liegt außerhalb des sichtbaren Bild- 
schirmbereichs). Wenn die Zufallszahl = 1 ist, soll das blau- 


maskige Ungetüm von rechts kommen (die Horizontal-Position 
H=212 liegt ebenfalls außerhalb des sichtbaren Bildschirmbe- 
reichs). Die Variable BW (Bewegung) ist sehr wichtig. Denn 
wenn Phantomas von links kommt, muß bei der weiteren Be- 
wegung H=H+1 gerechnet werden, damit der Player zum rechten 
Rand wandert. Wenn er jedoch von rechts kommt, muß für 
die weitere Bewegung H=H-1 gerechnet werden. BW bereitet 
die jeweils richtige Bewegungsform vor, die in den Zeilen 
450 und 460 dann durchgeführt wird. 


380 und 390: Hier werden die Daten für Phantomas gelesen 
und auf den Bildschirm gebracht. FOR D=PH+V2 bedeutet: Daten 
von der Anfangsadresse für Player 1 + die in Zeile 340 er- 
rechnete Vertikalposition. Da Phantomas zwölf Zeilen hoch 
ist, wird die FOR...NEXT-Schleife ebenso oft durchlaufen. 
(Ein Player kann 256 Zeilen hoch sein.) 


400: Die Lautstärke für den Sound, der bei der Bewegung 
von Phantomas ertönt, soll von -13 bis +13 reichen. Der 
Einsatz von Minuswerten durch Umwandlung in Absolutzahlen 
wurde schon an früheren Stellen des Buches ausführlich er- 
klärt. 


410: Die Abfrage von Steuerknüppel (Port 1) und Kopf wird 
vorbereitet. 


420: Durch diese Verzögerungs-Schleife wird erreicht, daß 
sich die Lautstärke nur bei jedem siebten Schritt von Phan- 
tomas verändert. Dies bewirkt, daß der Sound am lautesten 
ist, wenn der schlitzäugige Dieb die Bildschirmmitte erreicht. 
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430: Die aktuelle Horizontal-Position von Player 1 (Phantomas) 
wird auf dem Bildschirm ausgegeben. 


440: Für den Bewegungs-Sound von Phantomas werden zwei 
Tonkanäle aktiviert. 


450 und 460: Falls Phantomas von links in den Bildschirm 
kam, ist BW=0 (vergl. Zeile 360). Bei jedem Durchlauf der 
FOR...NEXT-Schleifen aus den Zeilen 400 und 420 nimmt die 
Horizontal-Position um Eins zu. Falls Phantomas von rechts 
in den Bildschirm kam, ist BW=1 (vergl. Zeile 370). In diesem 
Fall wird der Horizontal-Position Eins abgezogen. 


470: Löscht alle Kollisionsregister für die Player und Missile. 


480 und 490: Mit diesen Zeilen wird die Horizontal-Position 
der Kanone verändert, die Sie mit dem Joystick steuern. Die 
Kanone bewegt sich genau über dem Textfenster und ist ver- 
tikal nicht veränderbar. Durch das Hinzurechnen bzw. Ab- 
ziehen von 1,3 wird erreicht, daß sich die Kanone immer ein 
wenig schneller bewegt als Phantomas. 


500: Mit dieser Zeile wird festgelegt, wie hoch der Schuß 
steigt, wenn der Steuerknüppel nach oben gedrückt wird. Am 
Anfang ist die Position der Kugel kurz über dem Kanonen- 
rohr. 


510: "Wenn der Knopf gedrückt wird, dann gehe ins Unter- 
programm 630." 


520: Die Kanone wird an der aktuellen Bildschirm-Position 
ausgegeben. 


530: Hier werden zwei Kollisionsregister abgefragt. Mit 53261 
wird registriert, wenn Player 1 (Phantomas) mit einem an- 
deren Player kollodiert (in diesem Fall die Vase). 53258 re- 
gistriert Kollisionen vom Missile des dritten Players (Kanone) 
mit anderen Playern (in diesem Fall die Vase und Phanto- 
mas). 


540: Wenn in Kollisionsregister 53261 keine Null steht, hat 
in jedem Fall eine Kollision stattgefunden. PPH soll "Punkte 
Phantomas'!" heißen. Wenn das blaue Gruselwesen an die Vase 
stößt, hat er sie im Sinne dieses Spiels geklaut und bekommt 
dafür einen Punkt. X$ nimmt dann den Text von A$ an (s. 
Zeile 260). 


550: Wenn im Kollisionsregister 53258 eine Eins steht (Kugel 
trifft Vase), dann nimmt X$ den Text von B$ an (s. Zeile 
270) und geht ins Unterprogramm 940. 


560: Wenn in 53258 eine Zwei steht (Kugel tirfft Phantomas), 
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dann nimmt %X$ den Text von C$ an (s. Zeile 280). PSP soll 
"Punkte Spieler" heißen. PSP wird bei erfolgreicher Jagd ein 
Punkt hinzugerechnet. 


570: Korrespondiert mit den Zeilen 420 und 400. 


580: Mit dem Register 53277 wird bestimmt, ob nur Player, 
nur Missiles oder beides auf dem Bildschirm erscheinen sollen 
(der Wert 2 läßt in dieser Spielsituation nur die Player er- 
scheinen). 


590 und 600: Das Gleiche wie 380 und 390; allerdings werden 
durch POKE X,0 die Daten für Phantomas gelöscht. Das ist 
notwendig, weil Sie sonst mehrere Blaugesichter zur gleichen 
Zeit auf den Bildschirm bekommen. 


610: Sobald Phantomas über den Bildschirm gewandert ist und 
seine Daten gelöscht wurden, müssen sie für den nächsten 
Durchgang RESTOREt werden. 


620: Die Variable für die Vertikal-Position von Phantomas 
wurde in Zeile 340 zufällig bestimmt. Dieser Wert ist noch 
im Speicher. Um eventuelle Fehlermeldungen zu vermeiden, 
wird V2 hier auf Null gesetzt. 


630: V4 ist die Vertikal-Position für die Kanonenkugel. Sie 
ist zunächst 85, also kurz über dem Kanonenrohr. Falls Sie 
den Steuerknüppel vor dem Schuß nach oben gedrückt haben, 
wird der in Zeile 500 errechnete Wert ZA abgezogen, wodurch 
die Kugel höher in den Bildschirm wandert. 


640: Die Kanonenkugel wird auf dem Bildschirm ausgegeben. 


650: Das Register 53254 bestimmt die Horizontal-Position der 
Kanonenkugel. Sie muß mit der Kanone übereinstimmen (HK 
aus Zeile 520). Es ist jedoch optisch schöner, wenn HK+3 
angegeben wird; das sorgt dafür, daß die Kugel genau über 
dem Kanonenrohr erscheint. 


660: Wie bei 580 beschrieben. Der Wert 3 läßt Player und 
Missile erscheinen. 


670 bis 700: Zum Schuß ertönt ein Sound. 


710: Da die Kugel auf dem Bildschirm nach oben wandert, muß 
die alte Position gelöscht werden. Sie würden sonst im Verlauf 
des Spiels jede Menge Kugeln oder sogar lange Linien sehen. 


720: Die Zählvariable für die Schußhöhe wird wieder auf 
Null gesetzt. 


730: Rücksprung ins normale Programm. 


740: In dieses Unterprogramm springt der Rechner gleich zu 


82 


Beginn (vergl. Zeile 160). In Register 106 steht die oberste 
vom BASIC benutzte Adresse (sog. RAMTOP). Der Wert des 
Registers hängt von der gewählten Grafikbetriebsart ab. Mit 
PEEK(106)-24 werden 24 "Seiten" für diePlayer-Missile-Tabelle 
reserviert. Das verhindert, daß der Rechner diesem RAM-Be- 
reich benutzt und die Daten für die Player und Missiles 
löscht. 


750: Der Tabellenanfang für die Player und Missile muß in 
Register 54279 abgespeichert werden. 


760: Innerhalb der Player-Missile-Tabelle ist die Startadresse 
für den ersten Player (Vase) an Platz 512. TA (Tabellenan- 
fang) wird mit 256 multipliziert, weil jede ''Seite" der Tabelle 
256 Byte belegt. 


770 und 780: Die gesamte Tabelle, die in diesem Spiel benutzt 
wird, sollte zu Beginn einmal gelöscht werden, da sich even- 
tuell noch alte Daten darin befinden. 


790: Mit V1 wird die Vertikal-Position von Player 0 (Vase) 
festgelegt. 


800: 559 ist ein Kontrollregister. Mit dem Wert 46 wird die 
gesamte Darstellung der Player und Missile ermöglicht. Sie 
können diesen POKE zum Spaß einmal weglassen; dann werden 
Sie möglicherweise gar nichts auf dem Bildschirm sehen. 


810: Wurde mit 580 erklärt. 


820: 704 ist das Farbregister für Player O0 (Vase). Da die 
Vase möglichst golden aussehen soll, wurde aus der Farbta- 
belle Goldgelb (SETCOLOR-Wert 1) gewählt. Der POKE-Wert 
wird wie in Zeile 330 errechnet: Farbe*16+Helligkeit; also 
1*16+14=30. Sie können die Farbe beliebig ändern. 


830: Mit Register 53248 wird die Horizontal-Position des ersten 
Players (Vase) festgelegt. 


840 und 850: Wie 380 und 390; hier werden die Daten für die 
Vase auf den Bildschirm gePOKEt. 


860: V3 ist die Vertikal-Position der Kanone; HK die Hori- 
zontal-Position. Zu Spielbeginn erscheint die Kanone genau 
über dem Textfenster. 


870: Die Anfangsadresse von Player 2 (Kanone) liegt 256 Byte 
hinter Player O. 


880 und 890: Wie 380 und 390; hier werden die Daten der 
Kanone eingelesen. Da dieser Player nur sieben Zeilen hoch 
ist, muß die FOR...NEXT-Schleife entsprechend weniger Durch- 
läufe machen. 
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900: Das Farbregister für Player 2 (Kanone) ist 706. AlsFarbe 
wurde ein kräftiges Rot (SETCOLOR-Wert 3) in der Helligkeit 
8 gewählt. GePOKEter Wert: 3*16+8=56. 


910: Das Register 623 bestimmt die Prioritäten der Player und 
Missiles. Mit dem Wert 20 wird erreicht, daß die Vase Prio- 
rität vor Phantomas, die Kanonenkugel jedoch Priorität vor 
beiden hat. 


920: Wenn der Rechner etwa sieben Minuten lang keine Ein- 
gabe über die Tastatur bekommt, führt er automatisch Farb- 
wechsel durch, um den Bildschirm zu schonen. POKE 77,0 
schaltet den Farbwechsel aus. 


940: In dieses Unterprogramm springt der Rechner, wenn eine 
Kollision zwischen Phantomas und Vase oder Kugel und Vase 
stattfindet. Je nach Ereignis wird dann A$ oder B$ auf dem 
Bildschirm ausgegeben (vergl. Zeilen 540 und 550). 


950 und 960: Der Punktestand von Phantomas und Ihnen wird 
ausgedruckt. Das Semikolon hinter PSP ist wichtig, da sonst 
ein Zeilenvorschub geleistet wird und die erste Zeile im 
Textfenster verschwindet. 


970 bis 1030: Nachdem die Kollision stattgefunden hat, wird 
ein Teil der Player-Missile-Tabelle gelöscht (vergl. Zeile 
770). Während des Löschens erklingt ein "Enttäuschungs- 
Sound". 


1040: Innerhalb dieses Unterprogramms, das bei Kollisionen 
aufgerufen wird, springt der Rechner in ein weiteres Unter- 
programm (wo die Player neu aufgebaut werden). Danach 
geht es mit dem normalen Spiel ab Zeile 290 weiter. 


1050 bis 1070: In dieses Unterprogramm gelangt der Rechner, 
wenn die Kugel auf Phantomas trifft. Der entsprechende Text 
und der Punktestand wird ausgedruckt. 


1080: Alle Player und Missiles lassen sich in doppelter und 
vierfacher Breite darstellen. Das ist ein besonderer Effekt 
dieser Grafik. Die Register 53256 bis 53259 gelten dabei für 
die vier möglichen Player; Register 53260 für alles Missiles. 
Die Werte 0 und 2 geben normale Breite; Wert 1 die doppelte 
und Wert 3 die vierfache Breite. Sobald die Kugel Phantomas 
trifft, soll sich seine Breite vergößern. Das wird mit der 
Variable BR vorbereitet. FR ist der Frequenzwert, der als 
erstes zum Treffer ertönen soll. 


1090 bis 1120: Auf drei Tonkanälen wird der gleich Klang 
erzeugt. Der vierte Kanal wird vorübergehend abgeschaltet. 


1130: Die Verbreiterung von Phantomas wird gePOKEt. 
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1140: Eine Verzögerungs-Schleife, die den Soundeffekt etwas 
länger anhält (in diesem Fall erklingt ein "Puff", mit dem 
Phantomas schließlich verschwindet). 


1150: Die Variable für die Verbreiterung von Phantomas erhöht 
sich um Eins; dem Frequenzwert wird Fünf hinzugerechnet. 


1160: Solange der Frequenzwert 20 nicht erreicht hat, geht 
der Rechner zur Zeile 1090 zurück. Dadurch ergibt sich fol- 
gender Effekt: Beim ersten Mal ist BR=1 (das Gesicht erscheint 
doppelt so breit als normal). Beim zweiten Mal ist BR=2 (das 
Gesicht erscheint normal). Beim dritten Mal ist BR=3, was 
zur vierfachen Breite des Gesichtes führt. Das Ganze geschieht 
natürlich sehr schnell, so daß Phantomas, wenn er getroffen 
wird, mit einem Puff-Geräusch kurz in den verschiedenen 
Breite-Stufen aufblitzt und schließlich verschwindet. 


1180: Für den weiteren Verlauf des Spiels wird das Register 
53257 (Breite Phantomas) wieder auf Null gesetzt. 


1190: Das Verschwinden von Phantomas, nachdem er von der 
Kugel getroffen wurde, wird erreicht, indem seine Horizon- 
tal-Position den Wert Null annimmt. Diese Position liegt 
außerhalb des sichtbaren Bildschirms. 


1200: Alle Daten für die Player und Missile müssen RESTOREt 
werden, da es sonst zu der Fehlermeldung ERROR - 6 (zu 
wenig Daten) kommen würde. 


1210: Wurde bei 1040 erklärt. 
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Noten übertragen 


Jetzt wird musiziert. (Ah! Toll.) Noten in ein BASIC-Programm 
umzusetzen ist nichts Kompliziertes - sondern reine Fleißar- 
beit. (Puh!) Bei einem mittellangen Hit kommen leicht ein 
paar Hundert DATA-Zeilen zusammen. Trotzdem kann es Spaß 
machen, Musikstücke in den Computer einzutippen und z.B. 
als Vorspann für ein Spiel zu nehmen. Nützlich ist das Über- 
tragen von Noten auch, wenn Sie ein Instrument spielen und 
eine Begleitstimme wünschen. Schließlich können Sie auch 
eigene Kompositionen mit dem ATARI abspielen und die Klang- 
wirkung prüfen. (Man will ja nicht jedesmal die Berliner 
Symphoniker bemühen.) Eben. 


Wie dem Rechner einfache Töne und Akkorde entlockt werden 
können wurde schon im ersten Kapitel gezeigt. (Muß man jetzt 
etwa zurückblättern?) Nein, nicht nötig. Denn mit den Bei- 
spielen dort können Sie ohnehin keine "richtigen" Komposi- 
tionen übertragen. (Jetzt kommt's 'raus.) 


In normalen Musikstücken haben die Noten unterschiedliche 
Zeitwerte und zum Teil auch verschiedene Lautstärken. Das 
muß in einem BASIC-Programm berücksichtigt werden. Ein 
gutes Beispiel ist das berühmte Bourr&e von J.S. Bach. Hier 
gilt es, Viertel- und Achtel-Noten zu übertragen. Die Abbil- 
dung unten zeigt die ersten drei Takte des Stücks. 


48 43 4 43 48 51 48 43 65 58 55 48 54 61 





162 172 193 145 145 129 145 145 162 172 172 193 172 172 


100 100 200 100 100 200 100 100 200 100 100 200 100 100 
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Die obere Zahlenreihe bildet die BASIC-Werte für die Noten 
der ersten Stimme; die untere Zahlenreihe beschreibt die 
BASIC-Notenwerte der zweiten Stimme. Als drittes finden Sie 
noch die Spieldauer für die einzelnen Töne. Dabei wurde der 
Viertel-Note der Wert 200 zugewiesen; Achtel-Noten bekommen 
demnach den Wert 100. (Das ist doch klar.) Dann ist ja gut. 


Der Trick, Noten unterschiedlicher Dauer zu programmieren, 
besteht darin, langdauernde Töne zu zerteilen; z.B. eine 
Viertel-Note in zwei Achtel. Das ist nur für den Rechner ein 
Unterschied. Als Zuhörer können Sie nichts davon merken. Die 
Umsetzung der ersten drei Takte des 'Bourree" sieht dann 
folgendermaßen aus: 


READ Sı,S2,D 
IF Si=-1 THEN END 
SOUND 9,51,18,8 
SOUND 1,52,18,8 

FOR Z=® TO D:NEXT 2 
GOTO 18 


150 
155 
168 
165 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


48,162,108 
43,172,188 
41,193,288 
43,145,1088 
48,145,188 
51,129,288 
48,145,1088 
43,145,108 
65,162,288 
s8,172,18® 
51,172,108 
48,193,2088 
54,172,108 
61,172,1088 


1888 DATA -1,-1,-1 


SI und S2 bedeutet "Stimme 1" und "Stimme 2". Die Variable 
D ist die Tondauer, die durch die FOR...NEXT-Schleife in 
Zeile 50 abgespielt wird. Die Lautstärke wurde mit dem Wert 
8 fest bestimmt. 


Sie sehen, daß die Tondauer zwischen 100 und 200 wechselt: 
Wenn die Noten beider Stimmen gleich sind (z.B. am Anfang 
des 2. Taktes), kann die Tondauer mit 200 festgelegt werden. 
Wenn jedoch eine Stimme eine Viertel-Note und die andere 
eine Achtel-Note spielen soll (z.B. 2. Note im 2. Takt), dann 
muß dem Rechner für die Viertel-Note zweimal eine Achtel- 
Note eingegeben werden (s. DATA-Zeilen 115 und 120). Da 
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der Computer beide Werte ohne Unterbrechung spielt, klingen 
sie wie eine Viertel-Note, während in der ersten Stimme zwei 
verschiedene Achtel-Noten gespielt werden. 


Das Beispiel auf der gegenüberliegenden Seite ist die ein- 
fachste Form, ein Musikstück zu übertragen. Es läßt keine 
Manipulationen der Lautstärken zu, was bei einem ordentlichen 
Arrangement sicher gewünscht wird. Das folgende Beispiel hat 
deshalb noch zwei weitere READ-Anweisungen aufgenommen 
(LI und L2), mit denen die Lautstärken der ersten und zweiten 
Stimme verändert werden können (s. DATA-Zeilen 105 und 110). 


18 READ S1,52,L1,L2,D 

28 IF Si=-1 THEN END 

38 SOUND 8,51,18,L1 

40 SOUND 1,52,18,L2 

58 FOR 2Z=8 TO D:NEXT 2 

98 GOTO 198 

188 DATA 48,162,8,8,180 
185 DATA 43,172,8,8,108 
118 DATA 41,193,18,18,2808 
115 DATA 43,145,8,8,188 
128 DATA 48,145,8,8,108 
125 DATA 51,129,10,108,288 
138 DATA 48,145,8,8,108 
135 DATA 43,145,8,8,1088 
148 DATA 65,162,18,10,200 
145 DATA 58,172,8,8,108 
158 DATA 51,172,8,8,188 
155 DATA 48,193,10,108,288 
168 DATA 54,172,8,8,188 
165 DATA 61,172,8,8,188 
1888 DATA -1,-1,-1,-1,-1 


Falls Sie das ganze Stück in einem schönen Arrangement hören 
möchten, können Sie das folgende Listing abschreiben und 
sich genießerisch zurücklehnen. 


8 REM BOURREE VON J.S. BACH 
18 READ 51,52,L1,L2,D 

28 IF Si=-1i THEN 5088 

38 SOUND 8,51,18,L1 

48 SOUND 1,52,18,L2 

8 FOR 2=8 TO D:NEXT 2 

98 GOTO 10 

188 DATA 48,162,8,8,1088 

185 DATA 33,172,8,8,188 
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118 
115 
120 
125 
130 
135 
140 
145 
158 
155 
160 
165 
178 
175 
180 
185 
198 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
268 
265 
270 
275 
280 
285 
290 
295 
300 
305 
310 
315 
320 
325 
330 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


41,193,19,10,298 
43,145,8,8,100 
48,145,8,8,100 
51,129,19,18,298 
48,145,8,8,100 
43,145,8,8,100 
65,162,18,18,208 
58,172,8,8,100 
51,172,8,8,10® 
48,193,10,10,298 
54,172,8,8,100 
61,172,8,8,100 


65,162,18,10,208 


72,145,8,8,108 
81,145,8,8,108 
86,129,19,10,288 
81,145,8,8,108 
72,145,8,8,10® 
65,162,8,8,188 
72,162,8,8,108 
81,129,8,8,108 
86,129,8,8,108 
97,193,8,12,188 
97,172,8,12,198 
48,162,19,12,188 
43,172,19,12,188 
41,193,19,10,288 
43,145,8,8,198 
48,145,8,8,108 
51,129,10,18,288 
48,145,8,8,108 
43,145,8,8,108 
65,162,19,10,288 
58,172,8,8,188 
51,172,8,8,108 
48,193,10,190,208 
54,172,8,8,108 
61,172,8,8,100 
65,162,10,10,288 
72,122,8,8,108 
81,122,8,8,108 
86,108,19,18,288 
86,108,8,8,150 
81,108,8,8,58 
81,162,8,8,0,-1, 


-1, 


-1, 


-1, 


1 


SOUND 2,108,18,8:50UND 3,129,18,8 
FOR Z=8 TO 4808:NEXT 2 


>88 
>28 
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Das Prinzip, längere Notenwerte in kürzere aufzuspalten, 
funktioniert nur, wenn nicht zweimal hintereinander eine 
identische Note gespielt werden muß; z.B. zweimal die Achtel- 
Note D. Für den Rechner ist dies dann eine Viertel-Note, die 
er ohne Anschlag-Unterbrechung spielt. 


Aber auch hier gibt es eine Lösung. Genau wie im vorherigen 
Programm werden im folgenden Stück den Variablen Si, 52 
usw. in DATA-Zeilen Werte zugewiesen. Die Variable Z für 
die Tondauer steht jedoch fest (Zeile 75). Dafür werden nach 
nach dem Spielen der Noten die Tonkanäle noch einmal ange- 
sprochen (Zeilen 80 bis 90) und die Lautstärkenwerte LI, 
L2 und L3 gespielt. Damit erreichen Sie folgendes: Wenn eine 
Note ununterbrochen gespielt werden muß, rufen Sie sie in 
den DATA-Zeilen zwei- oder mehrmals durch eine Lautstärken- 
regelung auf (z.B Zeilen 180 bis 210, wo der Ton für die 
1. Stimme durch die Lautstärke L1=7 mehrmals gespielt wird, 
während die 2. Stimme durch L2=0 schweigt). Wenn eine Note 
hingegen mit Anschlag-Unterbrechung gespielt werden muß; 
rufen Sie sie nur jedes zweite Mal auf (z.B. Zeilen 150 bis 
170, wo die 2. Stimme einen Ton im Wechsel L2=0 und L2=4 
spielt). 


Nach diesem System können Sie praktisch alle Musikstücke 
in ein BASIC-Programm übertragen. (Und was bringt das 
folgende Listing?) Das ist der Anfang des Hits "Sounds of 
Silence" von Simon & Garfunkel. 


8 REM SOUND OF SILENCE 

>58 READ S1,52,53,L1,L2,L3 

55 IF Si1=-1 THEN END 

68 SOUND 8,51,18,8:50UND 1,52,18,4:S0OUND 2,53,19,4 
75 FOR Z=8 TO 188:NEXT Z 

88 SOUND 8,51,18,L1:SOUND 1,52,18,L2:SOUND 2,53,18,L3 
95 GOTO 58 

188 DATA 8,108,0,0,0,0 

185 DATA 90,72,0,0,0,08 

118 DATA 8,97,80,0,0,08 

115 DATA 8,72,0,0,0,8 

128 DATA 8,108,0,0,0,0 

125 DATA 8,72,0,0,0,08 

138 DATA 8,97,0,0,0,08 

135 DATA 8,72,0,0,0,0 

148 DATA 8,108,0,0,4,0 

145 DATA 8,108,0,0,4,08 

158 DATA 54,1808,216,80,4,8 

155 DATA 54,108,216,0,0,08 

168 DATA 46,72,182,0,4,0 
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165 
178 
175 
188 
185 
198 
195 
208 
285 
2108 
215 
220 
225 
230 
235 
240 
245 
258 
255 
2608 
265 
2708 
275 
2808 
285 
2908 
295 
388 
385 
3108 
315 
320 
325 
33® 
335 
3408 
345 
35® 
355 
368 
365 
3708 
375 
388 
385 
398 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


436,72,182,0,08,8 
36,91,145,0,4,8 
36,91,1435,0,08,8 
41,122,162,7,08,3 
41,81,162,7,8,3 
41,188,162,7,8,3 
41,81,162,7,80,3 
41,122,162,7,8,3 
41,81,162,7,08,3 
41,188,162,7,8,3 
41,81,162,0,8,08 
8,122,0,2,3,2 
61,122,242,80,3,8 
61,122,242,0,3,8 
61,122,242,0,80,0® 
48,81,193,80,3,8 
48,81,193,0,8,08 
41,97,162,80,3,8 
41,97,162,0,8,08 
436,108,193,7,80,3 
46,72,193,7,8,3 
46,97,193,7,8,3 
46,72,193,7,8,3 
46,108,193,7,8,3 
46,72,193,7,8,3 
46,97,193,7,08,3 
46,71,193,8,8,08 
0,108,08,0,4,8 
46,1808,182,0,3 
46,108,182,0,3 
46,188,182,0,3 
36,91,144,0,4 
36,91,144,8,8 
31,72,122,8,4 
31,72,122,8,8 
27,91,188,7, 
27,54,108,7, 


1%] 
1%) 
1% 


27,68,108,7, 
27,54,108,08 

31,91,122,7, 
31,61,122,7, 
31,81,122,7, 
31,61,122,0, 
8,72,8,0,4,0 
8,72,80,80,4,8 
-1,-1,-1,-1,-1,-1 


’ 

’ 

’ 

17) 
1%) 
1%) 
1%) 
8,3 
0,3 
8,3 
0,8 
8,3 
8,3 
8,3 
8,08 


’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
’ 
> 
’ 
’ 


ATARI-Metronom 


Wer außer mit dem Computer auch noch mit einem anderen 
Instrument Musik macht, wird an diesen kurzen Kapitel Spaß 
finden. 


Denn das folgende Programm bietet ein echtes Metronom (Takt- 
zähler) mit bequemen Einstellmöglichkeiten und schöner Bild- 
schirmgrafik. Der Rechner beginnt mit '"M.M. = 60' also 60 
Taktschläge pro Minute als Voreinstellung. WeitereErklärungen 
sind nicht notwendig, da das Programm sich selbst erklärt. 


8 REM ATARI-MNETRONONM 

18 GRAPHICS 1 

28 SETCOLOR 8,3,108 

38 SETCOLOR 1,8,10 

48 SETCOLOR 2,18, 

58 POKE 752,1 

68 POSITION 2,2:PRINT #6; "atari - metronom”" 
78 PRINT "STOP = 5 VERSTELLEN MIT < ODER >" 
880 PRINT 

98 PRINT "SPIELEN = RETURN” 

180 MM=68 

118 POKE 764,255 

128 A=PEEKC764) 

138 IF A=55 THEN MM=MM+B.1 

148 IF A=54 THEN MM=MM-B.1 

158 IF A=12 THEN GOTO 210 

168 POSITION 5,18:PRINT #6; "M.M.”; 
178 COLOR 61:PLOT 9,10 

188 POSITION 12,18:PRINT #6; INTCMMD, 
198 IF PEEK(753)=8 THEN GOTO 128 
288 GOTO 128 

218 SOUND 8,255,10,15 

228 SOUND 1,100,12,15 

238 SOUND 2,108,2,15 

248 FOR 2=8 TO 2:NEXT 2 

258 SOUND 0,8,0,0 

268 SOUND 1,8,0,8 

278 SOUND 2,0,08,08 

288 FOR Z=8 TO 23848/MM: NEXT Z 
298 IF PEEK(C7643)=62 THEN GOTO 1208 
388 GOTO 218 
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10 bis 40: Die Grafikbetriebsart und die Feld- und Zeichen- 
farbe wird gewählt. 


50: Da das Textfenster erhalten bleibt, wäre der Cursor 
sichtbar, wenn er nicht mit POKE 752,1 (oder einem anderen 
Wert über 0) ausgeschaltet würde. 


60: In Spalte 2, Zeile 2 soll der Text "atari - metronom" 
erscheinen. Die Kleinschrift erreichen Sie durch Drücken der 
Taste CAPS. Wenn Sie in den Grafikbetriebsarten 1 und 2 die 
Kleinschrift wählen, um normale Texte zu PRINTen, erscheinen 
auf dem Bildschirm Großbuchstaben, jedoch in einer anderen 
Farbe als gePRIiNTete Großbuchstaben. 


70 bis 90: Diese Texte erscheinen im Textfenster in normal 
großer Schrift. Sie können den Buchstaben S, die Steuerpfeile 
und RETURN invertiert schreiben, damit sie sich besser vom 
Text abheben. Sie brauchen lediglich die ATARI-Taste zu 
drücken, bevor Sie die betreffenden Zeichen schreiben. 


100: Die Anfangs-Einstellung des Metronoms wird mit 60 Takt- 
schlägen pro Minute festgelegt. 


110: Das Register 764, das den Tastatur-Code für die zuletzt 
gedrückte Taste enthält, wird mit POKE 764,255 gelöscht und 
damit für die Abfragen in den Zeilen 120 und 290 vorberei- 
tet. 


120: Mit PEEK(764) kann ermittelt werden, welche Taste als 
letztes gedrückt wurde (vergl. Tastatur-Code, Anhang C). 


130 und 140: Die Taste > hat den Tastatur-Code 55. Wenn 
sie gedrückt wird, soll sich die Anzahl der Taktschläge pro 
Minute erhöhen. Die Addition MM=MM+0.1 wurde zur besseren 
Handhabung gewählt. Wenn Sie MM=MM+1 schreiben, erhöht 
sich der Wert so schnell, daß eine genaue Einstellung er- 
schwert wird. Der Tastatur-Code für die Taste < ist 54. Wenn 
sie gedrückt wird, soll sich die Anzahl der Taktschläge pro 
Minute verringern. 


150: Wenn Sie Ihre Einstellung beendet haben, können Sie 
durch Drücken von RETURN (Tastatur-Code 12) das Metronom 
zum Spielen bringen. 


160: In Spalte 5, Zeile 10 soll der Text "M.M." gePRINTet 
werden. 


170: Wenn Sie in die PRINT-Anweisung aus Zeile 160 noch 
ein Gleichheitszeichen gesetzt hätten, würde es auf dem 
Bildschirm nicht erscheinen, da es sich in einem anderen 
Zeichensatz befindet. Mit COLOR 61 können Sie das Gleich- 
heitszeichen aufrufen und mit PLOT hinter '"M.M." setzen. 
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180: Hinter dem Text '"M.M. = " wird die aktuelle Einstellung 
des Metronoms gezeigt. Das Komma am Ende ist wichtig, weil 
damit die Zeile bis zum nächsten Tabulator-Stop gelöscht 
wird. Der Nutzen ist ganz offensichtlich: Wenn Sie aus einer 
Einstellung von z.B. 120 wieder in einen Bereich unter 100 
gehen, bleiben ohne Löschen der Zeile die Werte der dritten 
Stelle auf dem Bildschirm. Sie können das einmal ausprobie- 
ren, indem Sie das Komma weglassen. 


200: Solange die RETURN-Taste nicht gedrückt wird, bleibt 
der Rechner bereit für Ihre Einstellungen. 


210 bis 270: Hier wird der Takt-Sound erzeugt. Es handelt 
sich um ein kurzes '"Klacken'". Falls Ihnen die Frequenzen 
nicht gefallen, können Sie natürlich andere nehmen. 


280: In dieser Zeile wird die eigentliche Taktmessung durch- 
geführt. Der Wert 23040 entsteht durch eine einfache Rech- 
nung: Wenn die FOR...NEXT-Schleife 384 mal durchlaufen 
wird, ertönt jede Sekunde ein Taktschlag. Das Taktmaß 
M.M. = 60 bildet die Grundlage für alle anderen Einstellungen 
(60 * 384 = 23040). Wenn Sie z.B. 75 Schläge pro Minute 
haben wollen, errechnet sich der Wert für die FOR...NEXT- 
Schleife 23040:75 = 307,2. Die FOR...NEXT-Schleife wird nun 
307 mal durchlaufen. Damit erreichen Sie genau 75 Schläge 
pro Minute. Ebenso funktionieren alle anderen Einstellungen. 


290: Wenn die Taste S gedrückt wird, können neue Einstel- 
lungen vorgenommen werden. 
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Der gesteuerte Zufall 


Da der Computer Zufallszahlen erzeugen kann, kann er auch 
Zufallstöne erzeugen. Ein einfaches Beispiel ist dieses kurze 
Programm: 


18 A=INTC2S6*RND(CB)) 

28 SOUND 8,A,18,10 

38 FOR Z=8 TO 388:NEXT 2 
48 GOTO 190 


Hier werden aus den Frequenzwerten, die in BASIC zur Ver- 
fügung stehen, ständig neu generierte Zufallstöne gespielt. Die 
Zeitdauer der FOR...NEXT-Schleife steht dabei fest. Aber auch 
dieser Wert läßt sich zufällig bestimmen. Das Programm sieht 
dann folgendermaßen aus: 


18 A=INTC2ZSSKRNDCEI) 

15 B=INTC2Z88xRND(C8))+200 
28 SOUND 8,A,108,10 

38 FOR Z=8 TO B:NEXT 2 
48 GOTO 198 


Durch die Ergänzung von Zeile 15 werden zwischen 200 und 
400 FOR...NEXT-Durchläufe unternommen. (Offen gestanden 
klingt das alles nicht besonders gut.) Das ist kein Wunder. 
Denn es handelt sich lediglich um eine wahllose Zusammen- 
stellung von Tönen und Zeiteinheiten. Man kann den Rechner 
aber auch anweisen, die von ihm erzeugten Zufallswerte zu 
ordnen und nur Töne auszugeben, die miteinander harmonisch 
klingen. Dazu das folgende Programm: 


18 A=INTC2xRNDCO)) 

280 C=INTC2xRND(CO)) 

38 IF A=8 THEN F=122 
48 IF A=1 THEN F=97 

>58 IF C=8 THEN D=288 
68 IF C=1 THEN D=4808 
78 SOUND 8,F,10,10 

88 FOR 2=8 TO D:NEXT 2 
98 GOTO 109 
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In den Zeilen 10 und 20 werden jeweils zwei Zufallszahlen 
(0 oder 1) erzeugt. Zeile 30 lautet: "Wenn die erzeugte Zu- 


fallszahl = O ist, dann laß den Frequenzwert = 122 sein."Zeile 
40 lautet: "Wenn die erzeugte Zufallszahl = 1 ist, dann laß 
den Frequenzwert = 97 sein." In den Zeilen 50 und 60 soll 


die Zeitdauer je nach erzeugtem Zufall 200 oder 400 betra- 
gen. In den nächsten Zeilen wird dann die Frequenz in der 
der entsprechenden Zeitdauer gespielt. (Das klingt schon 
etwas besser.) Ja, ist auf die Dauer aber langweilig, weil 
immer nur zwischen zwei Tönen gewählt wird. 


Mit dem folgenden Beispiel wird ein zweiter Tonkanal akti- 
viert und durch die Zeile 20 eine zweite Frequenzwahl ge- 
troffen (vergl. mit den Zeilen 60 und 70). Als Ergebnis 
hören Sie zufällig erzeugte Harmonien, denn die Frequenzwerte 
bilden den C-Dur Grundakkord. 


18 A=INTCZXRND(CB)) 
28 B=INTC2xRND(O®)) 
38 C=INTC2xRND(CB)) 
48 IF A=8 THEN F=122 


58 IF A=1 THEN F=97 
68 IF B=8 THEN F2=97 
r@ IF B=1 THEN F2=81 
808 IF C=8 THEN D=288 
98 IF C=1 THEN D=408 
188 SOUND 8,F,18,108 


118 SOUND 1,F2,10,10 
128 FOR Z=8 TO D:NEXT 2 
138 GOTO 18 


Nach diesem Prinzip kann nun ein Programm entwickelt wer- 
den, das eine sehr wohlklingende Zufallskomposition hervor- 
bringt. (Ist das die computerakustische Endlos-Symphonie?) 
Zumindest so lange, bis die BREAK-Taste gedrückt wird. 


188 A=INTC1S5SXRNDCB)) 
118 B=INTC7XxRND(CB)) 
128 IF A=8 THEN T1=122 


138 IF A=1 THEN T1=188 
148 IF A=2 THEN T1=97 
158 IF A=3 THEN T1=91 
168 IF A=3 THEN T1=81 
178 IF A=5 THEN T1=72 
188 IF A=6 THEN T1=65 
198 IF A=7 THEN T1>54 
288 IF A=8 THEN T1=48 
218 IF A=9 THEN T1=45 
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228 IF B=8 THEN T2=242 
230 IF B=1 THEN T2=216 
248 IF B=3 THEN T2=193 
258 IF B=4 THEN T2=182 
268 IF B=5 THEN T2=162 


278 N=INTC2xRND(CBII+1 
288 SOUND N,T1,18,8 

298 SOUND 8,T2,10,10 

388 FOR X=8 TO 88:NEXT X 
318 GOTO 188 


Die Zeile 100 erzeugt Zufallswerte zwischen O0 und 14. In den 
folgenden Zeilen werden jedoch nur 10 Zahlen für Frequenz- 
werte definiert. Dies hat zur Folge, daß den Zahlen 10 bis 
14 keine neuen Frequenzen zugewiesen, sondern die davor 
gespielte erhalten bleiben. Damit erreichen Sie Notenwerte 
unterschiedlicher Zeitdauer; also zufällige Achtel-, Viertel-, 
Halbe- oder Ganze Noten. 


Mit den tiefen Tönen (Variable B) wurde ebenso verfahren. Als 
weiterer Trick wird in Zeile 270 bei jedem Durchgang zufällig 
bestimmt, ob die Frequenz Ti von Tonkanal 1 oder 2 gespielt 
werden soll. Wenn z.B. dreimal hintereinander Kanal 1 be- 
nannt wird, spielt unterdessen Kanal 2 die Frequenz weiter, die 
ihm als letztes zugewiesen wurde. Dadurch hören Siemanchmal 
langanhaltende Klänge im Wechsel mit kurzen Tonfolgen. 


Mit dem Erzeugen von zufälligen Melodien sind die komposi- 
torischen Möglichkeiten des ATARI keineswegs erschöpft. (Was 
liegt denn noch drin?) Wie wär's mit einem zufälligen Kanon 
oder einer Fuge? (Wie soll das denn gehen?) Bei dem folgenden 
Programm wartet die zweite Stimme mit ihrem Einsatz, bis 
die erste Stimme acht Töne gespielt hat. Dann wiederholt sie 
die Noten der ersten Stimme eine Oktave tiefer. Die so ent- 
stehende zweistimmige Fuge kann freilich nicht mit dem 
"Wohltemperierten Klavier" konkurrieren; aber sie bietet einen 
angenehmen Unterhaltungswert. 


18 DIM F2(63) 

28 FOR X=8 TO 63 

38 A=INTC12xXRND(CO)) 
48 IF A=8 THEN Fi1=122 


>80 IF A=ı THEN F1=108 
68 IF A=2 THEN F1=97 
8 IF A=3 THEN Fi1=91 
808 IF A=4 THEN Fi1=81 
98 IF A=5 THEN F1=72 
188 IF A=6 THEN Fi1=65 
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118 IF A=7 THEN Fi1=61 

128 IF A=8 THEN F1=54 

138 IF A=9 THEN F1=48 

148 IF A=18 THEN F1=46 
158 F2(C52)=F1x2 

168 52=52+1 

178 T=T+1 

188 IF T>=8 THEN S3=52-8:G0OTO 2208 
198 SOUND 8,F1,18,1® 

288 FOR Z2=8 TO 188:NEXT 2 
218 NEXT X 

228 SOUND 8,F1,18,108 

238 SOUND 1,F2(53),18,7 
248 53=S3t+1 

258 FOR Z=8 TO 188:NEXT 2 
268 NEXT X 

278 SOUND 8,F1,18,18 

288 SOUND 1,F2(S53),18,7 
298 FOR Z2=8 TO 888:NEXT 2 


10: Da sich die zweite Stimme an den Tönen der ersten orien- 
tiert, müssen alle erzeugten Frequenzwerte abgespeichert 
werden. Dazu dient diese indizierte Variable. 


20: Die Zufallskomposition soll nach 64 Takten enden. 


30 bis 140: Wurde in den vorhergehenden Programmbeispielen 
erklärt. 


150 und 160: S2 ist der Index für die Variable F2 (Frequenz 
2). Bei jedem Durchlauf der FOR...NEXT-Schleife erhöht sich 
der Index-Wert. Dabei wird immer die Note der ersten Stimme 
von als Grundlage für die zweite Stimme genommen (Fi * 2 
bringt den gleichen Notenwert eine Oktave höher). Sie können 
den Multiplikator zum Spaß auch einmal weglassen; dann 
spielt die zweite Stimme die gleichen Töne wie die erste. (Und 
das wäre dann ein Kanon?) Genau. 


170 und 180: Sobald die Zählvariable Ti den Wert 8 erreicht 
hat (oder größer ist), wird der Index der zweiten Stimme 
(52) durch eine neue Index-Variable (S3) um 8 reduziert. Wenn 
danach im Unterprogramm ab Zeile 220 die Frequenz F2 ge- 
spielt wird, entsprechen die Noten immer denen der ersten 
Stimme vor acht Takten. 


190: Solange die Variable T noch nicht den Wert 8 erreicht 
hat, wird Zeile 180 übersprungen und hier nur die aktuelle 
Note der ersten Stimme gespielt. 


200: Eine Verzögerungs-Schleife, die die Tondauer bestimmt. 
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Sie können mit der Zeit experimentieren und sie erhöhen oder 
reduzieren. 


210: Der nächste Zufallston wird aufgerufen. 


220 und 230: Sobald die Zählvariable T den Wert B erreicht 
oder überschritten hat, erklingt zur ersten auch die zweite 
Stimme. 


240: Der Zähler für den Index der zweiten Stimme. 


260: Da der Rechner immer zur 220 springt, sobald T=8 ist, 
muß an dieser Stelle die FOR...NEXT-Schleife zur Zeile 20 
erneut geschlossen werden. 


270 bis 290: Als Schlußakkord dieser Zufallskomposition werden 
die Noten der ersten und zweiten Stimme für die Dauer von 
800 FOR...NEXT-Durchläufen gespielt. 


Falls Sie zu den zufälligen Tönen auch zufällige Grafik sehen 
möchten, ergänzen Sie das Programm durch folgende Zeilen: 


GRAPHICS 3+16 
SETCOLOR 4,18,14 
SETCOLOR 8,3,8 
SETCOLOR 1,1,12 
SETCOLOR 2,5,18 

31 B=INTC48xRND(CB)) 
32 C=INTC24%XRND(CB8)) 
33 D=INTC3XxRND(CB))+1 
171 COLOR D:PLOT B,C 
388 CLR :RUN 


NPBPUONH 


In der Grafikbetriebsart 3 stehen 40 Spalten und 24 Zeilen 
zur Verfügung. Außerdem können vier Farben mit jeweils 
acht Helligkeitsstufen gewählt werden. In den Zeilen 31 bis 
33 werden zufällige Spalten, Zeilen und Farben gewählt, die 
als Bildpunkte mit Zeile 171 gePLOTtet werden. Zeile 330 sorgt 
dafür, daß nach Ablauf des Programms alle Variablen auf 
Null gesetzt werden und der ganze Spaß von vorn beginnt. 


Mehr zum Thema Zufallsgrafik finden Sie in dem Buch "ATARI|: 
Spiele programmieren - Schritt für Schritt" von Karl-Heinz 
Koch, das ebenfalls im Birkhäuser Verlag erschienen ist. 
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Der Direktzugriff 


Eigentlich ist alles ganz einfach: Sie müssen nur den Fre- 
quenzwert ins AUDF-Register POKEn, die Bits O0 bis 3 für die 
Lautstärke im AUDC-Register setzen und noch die entsprechenden 
Werte für die Verzerrung; das sind die Bits 5 bis 7. Aber 
das ist ja sowieso klar. Wenn Sie dann noch Lust haben, 
jagen Sie 1,79 MHz statt 64 KHz durch die Verschieberegister 
und schalten Kanal I und 2 zusammen, um eine 16-Bit-Fre- 
quenzwahl zu erreichen; oder...(Äh, Moment mal. Lieber doch 
der Reihe nach.) Na gut. 


Zunächst gibt es bei den alten ATARI-Modellen den eingebauten 
Lautsprecher, der immer den hübschen Kontrollton von sich 
gibt, wenn man CONTROL+2 drückt. Bei den neuen Modellen 
sind die Funktionen des Konsolenlautsprechers auf den Monitor 
bzw. das Fernsehgerät übertragen worden. 


Über die Adresse 53279 können Sie den Lautsprecher direkt 
programmieren. Versuchen Sie folgendes Programm: 


18 FOR X=8 TO 255 
28 POKE 53279,X 
38 NEXT X 


Nun hören Sie ein Schnarren. Der Vorteil des direkten Zu- 
griffs auf den Lautsprecher liegt darin, daß er unabhängig 
von den vier Tongeneratoren aktiviert werden kann. Damit 
können Sie sich eine fünfte Geräuschquelle schaffen. Schreiben 
Sie folgende Anweisungen ohne Zeilennummern nacheinander 
auf den Bildschirm und drücken Sie jedesmal RETURN. 


SOUND 8,122,10,2 
SOUND 1,97,18,2 
SOUND 2,81,108,2 
SOUND 3,68,18,2 


Da Sie das obenstehende 3-Zeilen-Programm noch im Rechner 
haben, tippen Sie nun: GOTO 10. Nach RUN hören Sie, daß 
der Lautsprecher unabhängig von den vier Tonkanälen aktiv 
ist. Mit dem Beispiel auf der folgenden Seite bringen Sie den 
den gesamten ASCII-Zeichensatz auf den Bildschirm, wobei 
nach jedem einzelnen Ausdruck der Lautsprecher einen kurzen 
Klickton von sich gibt. 
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18 FOR X=8 TO 255 

28 PRINT CHRS$CX)D; 

38 POKE S53279,255 

48 FOR Z=8 TO 28:NEXT 2 
58 POKE 53279,0 

68 NEXT X 


Nun zu den Tonkanälen, die in BASIC mit SOUND O0 bis 3 an- 
gesprochen werden. Ihre eigentliche Bezeichnung ist Audio- 
frequenz-Register bzw. AUDFn-Register. (Hört sich richtig 
professionell an.) Eben drum. 


SOUND 0,X,.,. 
SOUND 1,X, 

SOUND 2,X,.,. 
SOUND 3,X,.,. 


Bit 
7 6 5 4 3 2 l 
(128) (64) (32) (16) (8) (4) (2) (1) 





In diese Register werden die Frequenzwerte gePOKEt, die sonst 
in der SOUND-Anweisung stehen; z.B. entspricht POKE 53760,122 
dem Befehl SOUND 0,122,.,. (He, da fehlt doch was!) Stimmt; 
Verzerrung und Lautstärke. Jedes AUDFn-Register hat noch 
ein Kontroliregister (AUDCn-Register), mit dem die beiden 
anderen Werte eines gePOKEten Sounds bestimmt werden. Die 
Bits dieser Kontrollregister sind folgendermaßen aufgeteilt: 


SOUND 0,. 


SOUND 1,. 
SOUND 2,. 
SOUND 3,. 
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Verzerrung 
siehe unten 


itbelegung der Audi 
7 6 5 





siehe 
nächste 
Seite 





(4) 


Lautstärke 
0 bis 15 


(128) (64) 


o-Kontroll-Register 
ı 3 2 1 0 


(2) 


(1) 














0 + Lautstärke entspricht Verzerrung 0 
32 + Lautstärke entspricht Verzerrung 2 
64 + Lautstärke entspricht Verzerrung 4 
64 + 32 = 96 + Lautstärke entspricht Verzerrung 6 
128 + Lautstärke entspricht Verzerrung 8 
128 + 32 = 160 + Lautstärke entspricht Verzerrung 10 
128 + 64 = 192 + Lautstärke entspricht Verzerrung 12 
128 + 32 + 64 = 224 + Lautstärke entspricht Verzerrung 14 








Wenn z.B. 
werden soll, muß folgendes Programm geschrieben werden: 


die BASIC-Anweisung SOUND 0,122,10,10 gePOKEt 


18 POKE 53768,122 
28 POKE 53761,17® 
38 FOR Z=8 TO S5BB:NEXT Z 


Falls Sie den gleichen Ton z.B. 
wollen, ändern Sie Zeile 20: 


28 POKE 53761,282 


in der Verzerrung 12 hören 


(Und was soll das alles?) Stimmt. Solange es nur um ganz 
normale Töne geht, ist die Anwendung des SOUND-Befehls 
bequemer. Interessant wird der Direktzugriff erst, wenn be- 
sondere Effekte erzielt werden sollen, wie dies z.B. mit dem 
vierten Bit der AUDC-Register möglich ist. Mit ihm können 
Sie die Position der Membran im Lautsprecher direkt bestimmen 
und damit Töne ohne Frequenzangabe erzeugen. Versuchen 
Sie folgendes Programm: 


8 REM BEISPIEL 1 

18 FOR X=-16 TO 16 

28 POKE 53761,16+ABSCX) 
38 NEXT X 

48 GOTO 18 


Durch Drücken der Taste BREAK können Sie das Programm 
stoppen. Die Möglichkeiten dieser Art direkter Tonerzeugung 
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sind praktisch unbegrenzt. Sie können 
tieren. Hier noch einige Änregungen: 


8 REM BEISPIEL 2 

18 FOR X=-32 TO 32 

28 POKE 53761,16+ABSCX) 
38 NEXT X 

238 GOTO 18 


8 REM BEISPIEL 3 

18 FOR X=-32 TO 32 STEP 8 
28 POKE 53761,16+ABSCK) 
38 NEXT X 

48 GOTO 18 


8 REM BEISPIEL 4 

18 FOR X=-64 TO 32 STEP 8 
28 POKE 53761,16+tABSCXK) 
38 NEXT X 

38 GOTO 18 


8 REM BEISPIEL 5 

18 FOR X=128 TO 64 STEP -1 
28 POKE 53761,16+tABSCK) 

38 NEXT X 

38 GOTO 18 


8 REM BEISPIEL 6 

18 FOR X=64 TO 128 STEP 2 
28 POKE 53761,16+ABSCK) 
38 NEXT X 

38 GOTO 18 


8 REM BEISPIEL 7 

18 FOR X=239 TO 159 STEP -2 
28 POKE 53761,16+X 

38 NEXT X 

48 GOTO 18 


tagelang experimen- 


Außer den Audiofrequenz- und Audio-Kontroll-Registern gibt 
es noch ein weiteres Kontroll-Register, mit dem alle vier Ton- 
kanäle gleichzeitig gesteuert werden. Es handelt sich dabei 
um die Speicherstelle 53768 mit der Bezeichnung AUDCTL. Da 
mit diesem Register sehr umfangreiche Sound-Manipulationen 
möglich sind, wird nachfolgend die Funktion jedes einzelnen 


Bits erklärt. 
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Durch Setzen von Bit O0 (Dezimalwert 1) wird der Eingabetakt 
für alle Audiofrequenz-Register von 64 KHz auf 15 KHz ge- 
schaltet. (So, so.) Jeder Computer arbeitet in einem bestimmten 
Takt, der mit dem Herzschlag vergleichbar ist. Mit jedem 
"Pulsschlag'' des Rechners (Systemtakt) werden einzelne Ar- 
beitsleistungen durchgeführt. Der Systemtakt des ATARI ist 
sehr schnell. Es gibt einen Haupttaktgeber, der mit 1,79 MHz 
läuft; das sind 1 790 000 Pulsschläge pro Sekunde. Außerdem 
gibt es mehrere Nebentaktgeber für spezielle Funktionen. Dazu 
zählt auch die Steuerung der Audiofrequenz-Register. Sie wer- 
den normalerweise mit 64 KHz getaktet. Diese Pulse werden 
einem sog. Frequenzteiler zugeführt, mit dem die vielen ein- 
zelnen Töne erst möglich werden. Folgende Skizze verdeutlicht 
dies: 


Wenn Sie z.B. in einem SOUND-Befehl die Frequenz 4 wählen, 
läßt der Frequenzteiler vom Eingabetakt (64 KHz) nur jede 
vierte Schwingung als Ausgabetakt durch. (Das ist aber eine 


sehr unbrüderliche Teilung.) So unterscheidet sich der Com- 
puter von der Heilsarmeee. 





Durch Setzen von Bit O0 im AUDCTL wird der Eingabetakt von 
64 KHz auf 15 KHz vermindert. Wenn Sie nun die Frequenz 4 
mit einem SOUND-Befehl wählen, wird wiederum jede vierte 
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Schwingung vom Frequenzteiler herausgefiltert und zur Aus- 
gabe gebracht. Jedoch erzeugt 15000 : 4 (= 3750 Hz) einen 
wesentlich tieferen Ton als 64000 : 4 (= 16000 Hz). 


Versuchen Sie dazu folgendes Programm, mit dem zunächst der 
Ton C normal gespielt wird. In Zeile 40 wird dann der Ein- 
gabetakt für den Frequenzteiler auf 15 KHz abgesenkt, so 
daß die gleiche Frequenzangabe wesentlich tiefer klingt. 


18 POKE 53768,122 

28 POKE 53761,178 

38 FOR 2=8 TO 18808:NEXT 2 
48 POKE S53768,1 

Sß FOR Z=8 TO 1888:NEXT 2 


Anstelle der ersten beiden POKE-Zeilen können Sie auch den 
Befehl SOUND 0,122,10,10 geben. (Nein, nein. Wir sind jetzt 
beim Direkt-Programmieren, und dabei bleibt es!) Na schön. 


Der Frequenzwert 122 ergibt bei vermindertem Eingabetakt 
natürlich nicht mehr den Ton C, sondern einen Notenwert, der 
mehr als zwei Oktaven tiefer liegt. Mit dem folgenden Pro- 
gramm können Sie den Unterschied ermitteln. Sie müssen jedoch 
zuerst wieder 53768,0 POKEn! 


18 POKE 5376,54 

28 POKE 53761,17® 

38 FOR Z=8 TO 1898:NEXT 2 
40 POKE 53768,1 

58 FOR Z=8 TO 1888:NEXT zZ 
68 POKE 53768,0 

78a POKE 53768,222 

88 FOR Z=8 TO 18808:NEXT Z 


Sie hören zunächst den Ton D (BASIC-Frequenzwert 54). Dann 
wird der Eingabetakt auf 15 KHz vermindert und der neue 
Ton gespielt. Durch Zeile 60 taktet AUDCTL dann wieder mit 
64 KHz, während mit Zeile 70 der BASIC-Frequenzwert 222 
gespielt wird. Dieser Ton liegt zwischen Cis und D (s. Kla- 
viatur Seite 11) und ist identisch mit dem Ton 54, wenn dieser 
aus einem mit 15 KHz getakteten Frequenzteiler kommt. 


Durch Setzen von Bit 0 im AUDCTL können Sie ganz neue Ge- 
räuscheffekte erzielen. Mit dem folgenden Programm wird der 
Frequenzwert 100 in der Verzerrung 2 gespielt. Der Wert 47 
ergibt sich aus 32 für die Verzerrung 2 (vergl. Tabelle Seite 
105) + 15 für die Lautstärke. Sie können zum Spaß auch an- 
dere Frequenzen mit diesem Programm versuchen. 
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18 A=53768 

28 POKE At8,1 

38 POKE A+t1,47 

38 POKE A,10B®B 

58 FOR Z=8 TO 1888:NEXT Z 


Im nächsten Beispiel wechseln sich die Frequenzwerte 100 und 
1 innerhalb der FOR...NEXT-Schleife ständig ab, was einen 
sehr interessanten Effekt mit sich bringt. 


18 A=53768 

28 POKE A+t8,1 

38 POKE A+t1,47 

48 FOR 2Z=8 TO 588 
58 POKE A,1®8 

68 POKE A,l 

78 NEXT 2 


Durch eine kleine Änderung in Zeile 30 kann das gleiche Pro- 
gramm einen ganz anderen Soundeffekt bringen. Der Wert 143 
entsteht aus 128 für die Verzerrung + 15 für die Lautstärke. 


38 POKE A+1,143 


Interessante, neue Effekte lassen sich auch erzielen, wenn der 
Eingabetakt ständig wechselt und die Frequenz dabei gleich 
bleibt. Im nachfolgenden Beispiel wird die BASIC-Frequenz 
100 auf diese Weise manipuliert. 


18 A=53768 

28 POKE A+1,175 
38 FOR Z=8 TO 588 
48 POKE At+t8,1 

58 POKE A,1088 

68 POKE A+8,8 

78 NEXT 2 


Wenn Sie nicht nur den Eingabetakt ständig wechseln, sondern 
auch die Frequenzen, erreichen Sie weitere Geräuscheffekte. Bei 
der nächsten Übung wechseln die Frequenzwerte 10 und 20 
sowie die Eingabetakte 64 KHz und 15 KHz. 


18 A=53768 

28 POKE At1,207 
38 FOR 2=8 TO 588 
40 POKE A+8,1 

>58 POKE A,1® 

568 POKE A+t8,08 

r8 POKE A,20® 

88 NEXT Z 
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Durch Setzen von Bit 1 (Dezimalwert 2) wird AUDFI1 zum Hoch- 
paßfilter für die Frequenzen aus AUDF3. (So ein Hochpaßfilter 
hat wahrscheinlich wenigmit einem Kaffeefilter zu tun, oder?) 
Im Gegenteil. Zwischen den beiden gibt es kaum ein Unter- 
schied: Sie wie ein Kaffeefilter nur die feinen Kaffebestand- 
teile durchläßt, so läßt ein Hochtonfilter nur die hohen Töne 
einer Frequenz durch. Folgende Skizze verdeutlicht dies: 










Hochtonfilter 


Ausgabefrequenz 





Eingabefrequenz 


Mit dem folgenden Programm erreichen Sie, daß AUDFiI nur 
Töne passieren läßt, die über den Frequenzwerten aus AUDF3 
liegen. 


18 SOUND 8,80,8,8 

28 A=53768 

38 POKE At8,2 

408 POKE At3,47 

58 POKE At6,2088 

68 POKE A+t2,108 

78 FOR Z=8 TO 588:NEXT 2 


Durch Änderung von Zeile 60 können Sie einen ganz anderen 
Effekt erzielen: 

68 POKE At2,1® 

Ändern Sie jetzt Zeile 40: 

408 POKE A+t3,175 


Nun hören Sie ein schrilles Klingeln. Durch Einfügen der 
nächsten Zeile wird auch AUDF3 hörbar: 


35 POKE At7,175 
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Genau wie beim Bit O gezeigt, ist es möglich, Bit 1 im stän- 
digen Wechsel ein- und auszuschalten. Dadurch können weitere 
interessante Effekte erzielt werden. Im folgenden Programm 
wird in Zeile 30 der Hochtonfilter für AUDF3 aktiviert und 
in Zeile 80 wieder ausgeschaltet. 


18 SOUND 8,0,08,® 
28 A=53768 
25 FOR Z2=8 TO 188 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
NEXT 


A+8,2 
A+7,47 
A+3,175 
A+6,2088 
A+2,20 
A+8,08 

2 


Natürlich ist es auch möglich, den Hochpaßfilter einzuschalten 
und gleichzeitig den Eingabetakt von 64 KHz auf 15 KHz zu 
senken (also Bit 0 und 1 setzen). In dem folgenden Beispiel 
wird damit ein weiterer Soundeffekt erreicht, der Ihnen als 
Anregung zum Experimentieren dienen soll. 


18 
20 


SOUND 8,8,0,8 
A=53768 
FOR Z2=8 TO 1088 


POKE 
POKE 
POKE 
POKE 
POKE 


A+8,3 
A+7,47 
A+3,175 
A+6,288 
A+2,208 


POKE A+t8,8 
NEXT 2 


Was Sie wissen müssen: Bevor Sie AUDCTL in einem 
BASIC-Programm direkt programmieren, müssen Sie eine 


sog. Null-Tonanweisung geben; also SOUND 0,0,0,0 





111 


AUDCTL 53768 


Wenn Bit 2 im AUDCTL-Register gesetzt wird (Dezimalwert 4), 
erreicht man einen Hochpaßfilter im AUFDß für die Frequenzen 
aus AUDF2. Alle Soundmöglichkeiten, die auf der gegenüber- 
liegenden Seite beschrieben wurden, gelten auch hier. Sollen 
also statt AUDFI und AUDF3 die Audiofrequenz-Register AUFDP 
und AUDF2 benutzt werden, müßte z.B. das erste Beispiel- 
Programm auf Seite 110 folgendermaßen umgeschrieben werden: 





18 SOUND 8,0,8,8 

28 A=537608 

38 POKE A+8,4 

480 POKE At+t1,47 

58 POKE A+t4,280 

68 POKE A,188 

8 FOR 2=® TO 588:NEXT 2 


AUDCTL 53768 


Durch Setzen von Bit 3 (Dezimalwert 8) werden AUDF2 und 
AUDF3 verbunden. (So, so.) Die normalerweise allein arbei- 
tenden 8-Bit-Frequenzregister schließen sich zu einem 16-Bit- 
Frequenzregister zusammen. Anstelle von 256 Tonwerten stehen 
dadurch 256*256 = 65536 Töne zur Verfügung. (Hui!) Allerdings 
kann jedes Register im Computer nur Werte von 0 bis 255 an- 
nehmen. (Also aus der Traum?) Quatsch. 











Bei Angaben über 255 werden zwei Register benutzt, in denen 
die hohen Zahlen aufgeteilt sind. In das erste Register kommt 
das sog. LOW-Byte; in das zweite das sog. HIGH-Byte. (Hört 
sich auch wieder richtig professionell an.) Eben drum. Wenn 
z.B. der Wert 12000 in zwei Register aufgeteilt werden soll, 
müssen folgende Formeln angewendet werden: 


HIGH-Byte = INT (Wert : 256) 
LOW-Byte = Wert - HIGH-Byte * 256 


Das LOW-Byte muß immer in die erste Adresse, das HIGH-Byte 
in die zweite Adresse gePOKEt werden. Der Computer rechnet 
während des Programmablaufs die beiden Werte nach der 
Formel LOW-Byte + HIGH-Byte * 256 wieder zusammen. Das 
folgende Programm bringt 12000 als Anfangs- und Endwert. 
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18 WERT=12888 

28 HIGH=INTCWERT/256) 
38 LOW=WERT-HIGH*256 
48 PRINT LOU,HIGH 

58 WERT=LOW+HIGHX2S6 
680 PRINT WERT 


In dem folgenden Beispiel-Programm wird Bit 3 im AUDCTL 
gesetzt und das gesamte Frequenzspektrum gespielt. Das LOW- 
Byte übernimmt die einzelnen Tonschritte, das HIGH-Byte erhöht 
sich mit jedem 256. Schritt vom LOW-Byte um Eins. 


18 SOUND 8,8,8,8 

208 A=53768 

38 POKE A+8,8 

48 POKE A+7,175 

58 POKE A+t4,L0OWU 

68 POKE A+6,HIGH 

8 IF LOW=255 THEN LOW=8:HIGH=HIGH+1 
88 IF HIGH=255 THEN END 

98 LOWU=LOUW+M 

188 GOTO 58 


Wenn Sie nun nicht nur Bit 3 setzen, sondern auch den Ein- 
gabetakt von 64 KHz auf 15 KHz absenken, dann erhalten sie 
Sie wiederum ein neues Frequenzspektrum. Außerdem können 
die Verzerrungen für das AUDC3-Register verändert werden. 
Dazu das folgende Beispiel: 


18 SOUND 9,0,0,8 
28 A=53768 

38 POKE A+8,9 

48 POKE A+7,47 

58 POKE A+4,LOU 

68 POKE A+6,HIGH 

7@8 IF LOW=255 THEN LOW=9:HIGH=HIGH+1 
88 IF HIGH=255 THEN END 

98 LOW=LOU+1 

188 GOTO 58 


Das folgende Programm soll demonstrieren, wo ein anderer 
Vorteil der 16-Bit-Umschaltung liegt. 


18 SOUND 8,8,0,8 
28 A=53760 

38 POKE A+8,8 

38 POKE A+t7,175 
58 LOW=255 
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68 HIGH=® 

78 POKE A+r4,LOU 
88 POKE A+t6,HIGH 
188 GOTO 188 


Drücken Sie nun die BREAK-Taste und schreiben Sie ohne Zei- 
lennummer: 


SOUND 8,255,18,15 


Nach RETURN hören Sie den gleichen Ton, der auch durch 
das Programm erzeugt wurde. Andern Sie nun die Zeilen 50 
und 60: 


8 LOW=®B 
68 HIGH=1 


Wenn Sie nun nach RUN und der Unterbrechung durch BREAK 
wieder ohne Zeilennummer SOUND 0,255,10,15 spielen lassen, 
werden Sie einen kleinen Unterschied feststellen. Denn das 
Programm erzeugt den Frequenzwert 256, den ein normaler 
SOUND-Befehl nicht mehr erreichen kann. 


Damit stehen auch sehr tiefe Töne für Soundeffekte oder für 
ein Orgelspiel zur Verfügung. Nachfolgend finden Sie eine 
Tabelle der tiefen reinen Noten mit Angaben von LOW-Byte 
und HIGH-Byte. 


letzte reine Note in BASIC 


257 
272 
288 


305 
324 
343 


363 
385 
408 


432 
458 
485 


514 
544 
577 
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611 Gis 

647 G 135 
686 Fis 174 
727 F 215 
770 E 2 
816 Dis 48 
864 D 96 
916 Cis 148 


970 


Durch Setzen von Bit 4 (Dezimalwert 16) werden AUDFß und 
AUDF1 verbunden. Alle Soundmöglichkeiten, die für Bit 3 
beschrieben wurden, gelten hier entsprechend. Soll also statt 
mit AUDF2 und AUDF3 eine 16-Bit-Frequenzwahl mit AUDFß und 
AUDF1 geschaltet werden, müßte das Beispiel-Programm von 
Seite 113 folgendermaßen umgeschrieben werden: 


18 SOUND 8,8,8,08 

28 A=53768 

38 POKE A+t8,8 

48 POKE A+1,17r5 

Ss8 POKE A,LOU 

68 POKE At2,HIGH 

78 IF LOW=255 THEN LOW=8:HIGH=HIGH+1 
808 IF HIGH=255 THEN END 

98 LOU=LOUY+1 

188 GOTO 58 


Oresimer ] Asse [m 


So wie mit Bit O0 der Eingabetakt für die Audiofrequenz-Re- 
gister von 64 KHz auf 15 KHz herabgesetzt werden kann, so 
ist es mit Bit 5 (Dezimalwert 32) möglich, den Eingabetakt 
auf 1,79 MHz zu erhöhen; allerdings nur für AUDF2. Folgendes 
Programm zeigt die Wirkung: 
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18 SOUND 8,8,08,08 

28 A=537608 

38 POKE At8,32 

48 POKE A+5,175 

58 POKE At4,X 

68 X=X+1:1IF X=255 THEN END 
‘8 GOTO S® 


Das Frequenz-Spektrum wird hier auf eine sehr hohe Tonebene 
geschoben. Interessant wird dieser Effekt jedoch erst, wenn 
nicht nur Bit 5 gesetzt, sondern zusätzlich noch eine 16-Bit- 
Frequenzwahl getroffen wird. Dadurch können Sie die hohen 
Noten feiner abstimmen, als es mit der SOUND-Anweisung 
möglich ist. Dazu folgendes Beispiel: 


18 SOUND 8,80,8,8 

28 A=53760 

38 POKE A+8,408 

48 POKE A+t7,175 

58 POKE A+4,L0OU 

68 POKE A+t6,HIGH 

78 IF LOW=255 THEN LOW=8:HIGH=HIGH+1 
88 IF HIGH=255 THEN END 

98 LOW=LOU+1 

188 GOTO 58 


Natürlich können auch hier alle Töne in allen Verzerrungen 
gespielt werden. Damit erreichen Sie weitere Soundeffekte, die 
zu stundenlangem Experimentieren herausfordern. 


Versuchen Sie z.B. folgendes Programm: 


18 SOUND 8,8,08,®8 

28 A=53760 

38 HIGH=® 

38 POKE A+t8,48 

58 POKE At7,175 

68 FOR LOW=-255 TO 255 STEP 15 
78 POKE A+t4,ABSCLOU) 

88 POKE A+6,HIGH 

98 NEXT LOW 

188 GOTO 68 
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Oresise [aa em 


Durch Setzen von Bit 6 (Dezimalwert 64) im AUDCTL wird das 
Gleiche erreicht wie mit Bit 5; jedoch werden hier 1,79 MHz 
nicht durch AUDF2, sondern durch AUDFß getaktet. 


esse] Ras on 


Um die Funktionsweise dieser Bitschaltung verständlich zu 
machen, muß auf frühere Erläuterungen zurückgegriffen wer- 
den. Auf Seite 107 wird gezeigt, wie aus dem Eingabetakt 
für die Audiofrequenz-Register die einzelnen Schwingungen 
herausgefiltert werden (die Skizze zeigt eine Vierer-Division). 
Nach dieser Division werden die Frequenzen nicht gleich dem 
Lautsprecher zugeführt, sondern gelangen in einen sog. Viel- 
fachzähler (Poly-Counter), in den die Frequenzen Bit für Bit 
eingeschoben werden. (Wird jetzt endlich das Schieberegister 
erklärt?) Klar, jetzt ist es so weit. 













Die ATARI-Computer verfügen über drei Poly-Counter für jeden 
Tonkanal, die mit den Bits 5,6 und 7 der AUDC-Register ge- 
steuert werden (vergl. Tabelle Seite 105). Die Tonverzerrungen 
0,2,4 usw. werden durch die verschiedenen Kombinationen 
von zusammenwirkenden Poly-Countern hervorgebracht. Dabei 
arbeitet jeder Poly-Counter mit einem sog. Schieberegister 
unterschiedlicher Bit-Länge. 


[III] 4-Bit-Schieberegister 
[II IT] 5-Bit-Schieberegister 


[ITITITITIITTITTTTT] 1-Sitschieberegisten 


Das Ganze muß man sich folgendermaßen vorstellen: Nach der 
der Bearbeitung in den Frequenzteilnern gelangen die Pulse 
in einen Poly-Counter, wo sie Bit für Bit durch das Schiebe- 
register geschickt werden. Hier arbeitet der normale System- 
takt mit 1,79 MHz. Pro Takt werden die Bits um ein Register 
weitergeschoben. Die Darstellung auf der folgenden Seite 
verdeutlicht diese Arbeitsweise. 
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| - | 1. Takt 
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| - DE: 1 


(Und wo ist da die Verzerrung?) Das kommt jetzt. Denn die 
Poly-Counter sind mit sog. NOR-Schaltungen verbunden, die 
sich aus den Schieberegistern wieder einzelne Bits heraus- 
pflücken und erneut in den Poly-Counter schicken. 


Doch bevor die abgefangenen Bits wieder ins Schieberegister 
kommen, werden sie - je nach gewählter Verzerrung - in 
unterschiedlicher Weise bearbeitet. Wenn z.B. Verzerrung 0 
gewählt wurde, werden zuerst zwei Bits aus dem 5-Bit-Schie- 
beregister, dann zwei Bits aus dem 17-Bit-Schieberegister 
verarbeitet, das Ergebnis durch zwei dividiert und die so 
entstehende halbzufällige Frequenz wieder in die Poly-Counter 
geschickt. 


(Alles klar. Aber wie funktioniert die NOR-Schaltung denn 
nun wirklich?) NOR ist die Verbindung von NOT und OR (Nicht- 
Oder). Ganz praktisch bedeutet dies, daß nur Impulse zum 
Output gelangen (und dort negiert, also wahrheitsumgekehrt 
werden), wenn zur gleichen Zeit ein identischer Impuls am 
Input vorliegt. (Lieber Himmel, ist das kompliziert.) Das 
kann ich auch nicht ändern. Zumindest wird jetzt deutlich, 
warum bei bestimmten Kombinationen von Frequenzen und 
Verzerrungen kein Ton zu hören ist: In diesen Fällen treffen 
die Bedingungen für die NOR-Schaltung nie zu; und dadurch 
kommt kein Impuls zum Output. 


Normalerweise wird jedoch die ursprünglich reine Frequenz 
durch das Zermalmen in der Bit-Mühle einfach nur verzerrt 
wiedergegeben. Offenbar pendeln sich dabei die Input/Output- 
Frequenzen schnell ein, so daß ein erkennbares Wiederholungs- 
Muster entsteht (siehe die vielen rhythmischen, knurrenden 
und surrenden Sounds). 


Durch Einbeziehung des 17-Bit-Schieberegisters ist dieses 
Wiederholungs-Muster jedoch nicht mehr zu hören. Deshalb 
entstehen zum Teil unrhythmische Sounds (Verzerrungen 0,4 
und 8 sind an die 17-Bit-Schieberegister gekoppelt). Hier 
kommt es auch besonders häufig zu Tonlosigkeit. (Das ist ja 
alles ganz toll. Aber was hat das mit dem Bit 7 vom AUDCTL 
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zu tun?) Das kommt jetzt: Durch Setzen von Bit 7 (Dezimalwert 
128) wandelt sich das 17-Bit-Schieberegister in ein 9-Bit- 
schieberegister um. Das bedeutet eine neue Verzerrungsform 
für Soundeffekte. (Wahnsinn! Und wie hört sich das an?) 


Folgendes Programm spielt zuerst in der Verzerrung 8; dann 
wird Bit 7 im AUDCTL gesetzt, wodurch die gleiche Frequenz 
in einer anderen Rhythmik erklingt. 


18 SOUND 8,58,8,15 
28 FOR Z=8 TO 1888:NEXT 2 
38 POKE 53768,128 
48 FOR Z2=8 TO 1888:NEXT 2 


Auch hier steht Ihnen das gesamte Frequenz-Spektrum zur 
Verfügung. Durch alle Kombinationen von Frequenzerweiterung 
durch 16-Bit-Wahl, Hochtonfilter und Eingabetaktänderungen 
können Sie mit dem ATARI über 1,2 Millionen verschiedene 
Töne erzeugen. (Und wer soll die alle hören?) Zum einfachen 
Anhören werden diese vielen Töne sicher zu langweilig sein. 
Aber für Soundeffekte oder zur Feinabstimmung hoher Orgel- 
töne lassen sie sich gut anwenden. In diesem Buch wurden 
hierfür viele Beispiele und Anregungen gegeben. Mit Absicht 
wurden alle Listings ausführlich kommentiert, damit Sie nicht 
nur zum Programm-Konserven-Schlucker absteigen müssen, 
sondern aufgrund der vorgegebenen Programm-Strukturen und 
Prinzipien eigene Ideen und effiziente Programme entwickeln 
können. 


Viel Spaß beim Computern! 
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Nützliches 


Mit dem ATARI allein werden Sie auf die Dauer nicht hinkom- 
men. (Das ist doch ein alter Hut.) Na schön. Aber beim Kauf 
von Peripheriegeräten kann es zum ernsthaften Frust kommen, 
wenn die knisternde Styropor-Packung erst einmal entfernt 
und der Drucker, der Monitor oder sonstwas nach stunden- 
langem Entwirren von Verbindungskabeln am Computer ange- 
schlossen ist. 


Manches Interface entlockt dem Drucker nur den halben Zei- 
chensatz des ATARI; mancher Monitor gibt die brillanten 
ATARI-Farben erst ab Helligkeitsstufe 6 wieder. (Und das 
steht in keiner Betriebsanleitung.) So ist es. 


Es gibt natürlich nicht nur "Schwarze Schafe" unter den 
Peripheriegeräten. Daher sind die folgenden Produkte nicht 
die einzigen, mit denen sich am ATAR| arbeiten läßt. Es 
handelt sich lediglich um Geräte, mit denen dieses Buch ent- 
standen ist, die sich problemlos anschließen lassen und die 
zufriedenstellende Leistungen bringen. 








Die ATARI 1050 Diskettenstation wird mit 5 1/4-Zoll-Disketten 
"gefüttert". Besonderheit dieses Geräts ist ein eingebautes 
Interface und die Möglichkeit, automatisch von einfacher zu 
doppelter Schreibdichte umzuschalten, je nachdem, welches 
DOS (Disketten-Operations-System) benutzt wird. 


Das bequeme Auswahlmenü des DOS läßt sich ohne Eröffnen 
von Datenkanälen problemlos auf jede Diskette kopieren. 
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Der ATARI 1027 Schönschriftdrucker läßt sich wegen seines 
sauberen Schriftbildes gut als Korrespondenz-Drucker einset- 
zen. Mit einer einzeiligen Anweisung kann man über den 
internationalen Zeichensatz verfügen. Seine Druckgeschwindig- 
keit beträgt 20 Zeichen/sec. Es lassen sich normale DINA 4 
Bögen und Rollenpapier einspannen. 


Schriftprobe mit dem ATARI 1027 Schönschriftdrucker 


Durch programmierbares Vor- und Rücklaufen ist außerdem 
eine Formularsteuerung möglich. 





Alle Listings dieses Buches wurden auf dem STAR Radix 10 
gedruckt. Durch das hauseigene Interface ist die Signalüber- 
tragung problemlos. Alle Zeichen, einschließlich Umlaute sind 
sofort verfügbar. Durch frei definierbare Charakter-Sets kann 
man sich auch den ATARI-Grafik-Zeichensatz für den Ausdruck 
programmieren. Mit einfachen Anweisungen lassen sich ver- 
schiedene Schriftarten, Zeilenabstand und -breite bestimmen. 
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2 


Durch ein eingebautes Audioteil mit direkter Tonwiedergabe 
war der Taxan Vision EX-Monitor für die Aufgaben dieses 
Buches besonders geeignet. Er wurde speziell für den Heim- 
computer-Bereich konstruiert. Seine Auflösung von 380 x 262 
Bildschirmpunkten ermöglicht eine gute Darstellung der ATARI- 
Grafik. 
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Anhang A 


Grundakkorde einzelner Tonarten 


Grundakkord BASIC-Frequenzwert 


C,E,G 122,97,81 
D,Fis,A 108,86, 72 
E,Gis,H 97,77,65 


F,A,C 91,72,61 
G,H,D 81,65,54 
A,Cis,E 72,58,48 


H,Dis,Fis 65,51,43 


c-moll 122,102,81 
d-moll 108,91,72 
e-moll 97,81,65 


f-moll 91,68,61 
g-moll 81,68,54 
a-moll 145,122,97 


h-moll i 129, 108,86 


Cis,Fis,Gis 115,86, 77 
Des,E ,As 115,97,77 
Es,G,B 102,81,68 


Fis,Ais,Cis 86,68,58 
Ges,B,Des 86,68,58 
As,C,Es 77,61,51 


B,D;,F 68,54,46 
cis-mol | Cis,E,Gis 115,97, 77 


dis-mol| Dis,Fis,Ais 102,86,68 
fis-moll Fis,A,Cis 86, 72,58 


gis-moll Gis,H,Dis 77,65,51 
ais-moll Ais,Cis,F 137,115,91 
b-moll B,Des,F 137,115,91 
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Anhang B 


ASCII-Tabelle 


normal/invertiert 


168 Leerzeichen 
161 t 

162 
163 
164 
165 
166 
167 
168 
169 
1708 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 


+% vn» RN HE 


normal/invertiert 


“ 


196 
197 
198 
199 
200 
201 
202 
283 
204 
285 
2086 
207 
2088 
289 
2108 
211 
212 
213 
214 
215 
216 
217 
218 


183 


OO NOW BRUNDHM ON. 


/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 


SNSNSNSNSNSNSNSNSNNININNINSNNNNSNSNN 
N<xX ES CHI UT DIE VOZZTTRUHTITNNTN MO 


NDaw. 3) vNi Ar. 





125 


Anhang € 


Tastatur-Code 


un 
Q 


D 
"U 
un 


ZZWÄENXNNH +- 


“ 


vASOONODUIBRWNH-M 


/ 
ATARI-TASTE 
LEERZEICHEN 


70 
> m 
ww 
m 
4 
m 


a 
W 
E 
R 
T 
Y 
U 
I 
O 
P 


Mit SHIFT = +64 


Ir) NnNDOUN DI 


Mit CONTROL = +128 
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